(£®mp
liber 150 Superp
fur den Commodore 64
Snake Sma
Die Maus f ur Comn
und Atari
/
MalenmitdemTI
DIE C-64 ENZYKLOPADIE
DER AUTOR RAETO WEST vcrwendete 1 Jahr der Analyse
und Dokx ■iii,i:i"' , i 64' I i., . hi ,■■■.■ i v in .
uiizeilgeiiaEen Gedutd: Das einzige enzyklopadische b-'-tf-
Budi. das neben Ihrem Computer iiegen blesbt
Me Erklarungen. audi krircp!«x«r System- und Pro-
(jrammlragen. umfasf«i~ b(:i [!.«>!■, IVes' stets beides-
Kompetenz dun:'. Elnsid-ir jr.d sulides Faktenuiissen.
Beispielhaft:Mu;ikr!Ti-:'ii-.iiu SID Chimin K<=pi:is] 1?"
EIN REFERENZBUCH fijr prof^sHitKLflk Hard..
Software-En twit kit;! Lair dem I.! S Standard des
Budis PROGRAMMING "II IE PiVrCBM des
ijlcirhmi Amors: EIN LEHRBUCH eu Adbi-.u
und Anwenciuvj '.-on M'kror ■ im-Hil^m .-.-:. {',■■<■.
spiel des C-64 fur alleAutodidakten und Ein-
EIN ANWENDUNGS-HANDBUCH zum C-64/SX-
it liber 30L 1 Proqiarn-nk-Tu;;;:^:: . dk'i fd er-Funktionen -
,iudi cti sti.vi'it'i.'ji::' is?ltvn«r inn muisi saniiedenen.
Seiten, Softcover, DM 66,-
2S ia-mi
Computer Kontakt 2/86
VORWORT 3
AKTIOKSPREISE
_.
^gJ^IM-tt™^
^% L "" L
IM»i
ZSSSSSSS^SS *.-
C m
t sinmal mochten wir
to^+T^DBtDOSS..
*JW
ssssss
1: Viel Gliick und
in viel SpalJ mit,
4lle Hodue itbi ftsaai und w. I»rtf
W/ ""■■=
ncn^inVwir^sicher
sgasr~ -
Erscheinijrgsweise unserer Zei
schrift bewahren
|S™25S. S ,fc
■ noch mehr Material interessie
811=2
■t s:nd, das Haft
■ also gerne jeden Monat ha'tten
■ aber immer noch Oualitat vor
Fur uns geht
■ die Oualitat zu halten, schei
it uns dieser
werden, wie man schun am neug
hlld sieht. Dadurch hist die C
den Charakter einer nchtigen
-stalteten Titel-
HEil,™t
.
serungen nicht nui aufs Optis
zukunftiga Varbes-
Wenn man bedenkt, daB der Ver
ag nitnmehir seit
der C< doch eina
i^'SHs™***
1SB4 erschien die ersta fljsga
sich vieles versndert. Wir ha
miiht, die ZaitEchrift ansprec
groBtmijglicher Lesernahe zu g
daft sich die CK in dieser rel
aui Oem Markr "sst et.abliert
ender und mit
•staltan. Riickblik-
Stolz bBhaupten,
tin kurzen Zeit
at. Oaran wollen
wir ueitererteir.er und die CK
langfriEtig noch
HesSESSS; ,£.
etwss Besonrierest das Topprcg
amm des Monats neifit
H!lEs£F ° 'I:
dam Sie in einer fremden Welt
gefahrliche Robot -
:
und^ellen Lesern vial SpaB be
m Lesan dieses
£s«mr £
Bis zum nachsten Mai
ttsuw L£^
CSV RJEGERT
INHALTSVERZEICHNIS
Bei uns konnen Sie
mitmachen
Olub-Nachrtchten
6
^tw^fcTmZl
di
r^rdi^lim^Ri^ile.
b6r l «'nySrT g Iio 3 fc^"Ktt
Dei Mirage Microdriver
1=11111
Snake-Smasher
h.tilvi] L'.lH Sjn'-. A^i-Ll;nti.
rogramm nur mil SpiidiLT.-n-
:,:0:lI'^v!I 'lIlT /:!V::^^':-i
*«" Miaerfulgcn.wr
■■■■■. ■ : ■■ ■■ : ■ ■ :■:■■
^DAbdZ^S^Is
Fk>ppy-Knrs C64. Tail 5
des Program ms in unwrem
Super-Pokes Fiir dan C64
32
£S£S.',
34
Hackers Nohrork Service
44
!■■- i ',-Iii-.-t ssirtnatri Jcr LSngc
[mil i.in:Lli:L.; iii< Pr>:iL! -lining
50
St
56
^SSSl^
^r^'^^dtr^
Konkurren; zum Atari -Schrsiber
62
I.I... h» V- ■ 1 . ■ ■ 1 !■■■■ I'l
Cherry Harry
71
W**«. ^^
h
^ S^"r^lLn^rO*he
"*
Die nachste Ausgabe
»Computer-Kontakt«
erecheint am 243.1986
Blerborse B7
Fundgmbe 10S
TOPPROGRAMM DES MONATS
Topprogramm des
Monats: "Snake Smasher"
fur den Spectrum 48 K
Das Topprogramm des Monats ist dics-
mal fur den Spectrum 48K. "Snake Sma-
sher" stammt von Andreas Reimer - und
wie der Name schon sagt, miissen Sie in ei-
ner fremden Welt, deren Zivilisation
langst untergegangen ist, bosartige Robot-
schlangen bekampfen.
Der Alitor Andreas Reimer ist 17 Jahre
all und hesucht die 12. Klasse des Lieb-
frauen-Gymnasiums in Eschweiler bei
Aachen. Den Einsticg in die "Compute-
rei" schafftc cr 1982 liber die Volkshoch-
schule, wo er einen Basic-Kurs belegte.
Vom Sinclair ZX81 stieg er 1983 aur den
ZX-Spectrum urn. Sein Hauptinteresse,
die Spiele, will er moglichst bald auch mit
einem CPC 6128 in die Tat i
1000 DM Honorar
lsIIcii FrojiramiiiriQiorid^riSifii das beste Programm
htTaiissLUhoii und in Jurt'K : il- I oi.ilistingdes Vlonars
jbdruekai. Dtr A1H1.U clicsss Programmes eibiilt dann
jls Hi'Hiirar 1000. -DM.
Mirmachcn konnen allc Programmierer mil den Ge-
ratcn C64, VC20, Alan. Sinclair. II <W.'4A, CPC 464.
Bin Listing miiG nidii nnhedingi beihcgen, is* I ts der
Aulor des Programms rmeh k.-HLn Drneker hat. Wer-
tlen Programme abgedruekl, die nit hi lum Tnpiisling
s Moral!
erhall di
Autoi
laf&i
Toplirtin,
las Honorar tiir den Abdruck in den 1(KK>-
snthalten. Mil der Einsendung seines Pra-
rklart sich jeder Autor mil den einzelnen
Test "Bei unskonncc Sie mitmachen" ein-
i sie he Stilt 4 gegtniibe-r).
De-halb Leute aufgepalit ]
verdienen. Die Chancen fur e:
<lewi nner des Tnnlisvinjss des
Abo-Bestellscheln
SS;
iSSiSSH
I
s™;r-
~
:;;;,;;•;
I
winlesaberm.
■mdttutnnHtotam&l
fcy,
& ■■
on -
I*,™*,™
m
«N^
....
,.» :
D ScheeHI
gibei
□ Vtowuk
«. a „„„«>,.,„„ «,.,„.„
ft.
Ml^,
Ir^n^rfeM^
... ■;....■ '«•■' ■■
'"•
Qnm^qBAdHK
"> '*""
IZSL
—--—-"
Computer Kontakt 2/B6
CLUB-NACHRICHTEN ,
■i 8i tK:n Kontakt gesucht!
ss
C 128 Club
VS-Atari Club
Neue Adresse
Ei^Crs.*
Ireonl. FD. Software + all
117
if^J^ifc Spectrum-Club
[DATENKASSETTEN
Computer Kontakt 2/86
CLUB-NACHRICHTEN
ST Atari GrOUp Amstrad- Ortenauer
Schneider User- Computer Club
is puis Deuucblrad, bn cujbhtc Pragnmm -JSter- Club-AacheO L
SPIEL-REVIEWS
\U
'BBSS spiele |M test !
Das Hacker-Adventure 2S*S;tS ZZI '
bu^f L", Z ' % , " un "d Stt: Terrormoliiios
llir flirrkltr Drahl
zur Rcdubliun:
Teltton 072 52/ 42948
FQr 111 iff.-:
Computer Kontakt
Postfadtl640
7518 Brcttcn
Computer Kontakt2/B6 SINCLAIR 9
Liebe Freunde! Hisoft - Ultrakit
:
■'■'■ „ ; n ™ g=n«
, ja uuch siB _
SjS" °5SSS
Auflrau vod BASIC-Program-
:™«"s
7i ;™~« »•»■»«-
Sf-:clniTn-I-bii^F ufit! irigl den GulfKumH
Skyline - Ext. Basic
Der Mirage Microdriver
D Ft: aiich fur
Opus Discovery
Computer Korctakt 2*86
SINCLAIR 11
Der Touchmaster
BPfe-
J:r^:£^.
s™.rt™-rs
t Aj — ; L /
town?" ■kXrtuSmg!^
^^"A^iJrtl^'S^m
[^ |
KoiilH Pad. A Grafiktabletl,
'■,■'!"'' \"! r ''-'.^"^X'"l,'i
anEX.N^ r »i(rf.hMsi™mei-
m-tfta.
ilSi^.l^l.NHlUlVjS.JitOi.
rfldkenrffm.
nen und audi Spieler, mil d E m
Spean.ni fA*Wem h>, un-
J^^JTJSgSIS:
lT' ITk"""
;.;: ';;■;'..' .
dc C r t VD™i' m ,!'j^"'' J a^J , 'J.
hST Fill'
™. h ammc'
Tapper
Ifcmplp^.ndrsSpdsislen.
d ,™1" fIIIimSv:
t'l|lMUL'L--|L', ll= Fdl! .lULU.C:illL.I
m ..■■l^" '"i'V 1 h r iX:i ' 1'i ■
^"^^'"■ril^deTS
wciLergeleiK;! and aui dem
.'Ml ...I.'l. 1
1
AAriS^^beqiieiHaSdcm
°B™™W* ™a ji rich w
^i™i"S r '.^nr,N^r'
r a d uTn^ht fc
^"m^pL^h^i^Wer
'"■SCp™
T hl Si™™
bS^tbaW^o^n
sclMioioiiMn^rirat™™
verder,.
116 rT
Um* ™T- L'maeydi"
Panik kranpletl - das lecie Ge-
1 a™*™ in, Am.
din^^kii^nwJ^^-
!-rhTn"^"^--.'"----'''Sr
ctentMnefaBafemteh™
1 1 all rdings
Computer Konlakt 2/36
ui.SpMor.Ei.
Snake-Smasher
Fur Jen Spectrum 48 K
XI Spec- „in g 2) eiffijp
lermilRUNfs-
[JiiluL'h liiLii s,c[i i|.„ i iT |. ; c
Encipquellen nir VtifUgun K ne^tHchdiesersolsngc'wcilcr, ""^ Si bl * e Niiiiinier der [th-
das tiielbild . das gkii±-
1 Symlwl Shift'A (STOP|
m:] i a ill. tli. Zn slk-m UhirfluU
jr lie k amp far
„ 1 .;|-d:,. :,...„
■ sniw shift
• sriui sun
- srun si if;
■ tarn, shift
-■ sriui urn
• sum am
• sum siifi
• sriui shift
■ smti siift
;trt urn, im
:«PS SHIFT, dm
m am, «.■
:*S SUFI, dm
JrS SUFI, till
IfS SWF I, i
i, aii sniu »i;t
Die unterstrichenen Zeichen m
Listing 1
100 Sfl^E -susher' LINE 10
ra m mm*
10 PAPER Ol BORDER D: US : IR
K 0: BB1BH! Hi FLUSH t) OVER
Listing 2
;«« N|J w ^
20 LET fh LET p=l
10 (EN IIHIIItlinillllli
» fOR ffO TO 11
!0 PEH < SNAKE-SHABMEn *
M PSINT AIn,n; PSPER p; IN*
30 RBI » •
VSnike-SHsbtr'
» HEPI 1 ©H *
ailFE SINCLAIR", 'THE Cll-OESTRDY
50 REM i MffltEffli ftEIHES ■
to rer t ldt;feujchek ti *
70 RER i 5180 E5CHKE1LER ■
B0 RE31 • TEL. 02403 /J80!* i
m BfiTft 'BEO RUM", "THE 5PSCE-
« RER HniHHHUWUH
I M1ERS '," MP I * MK " . " HITIMK
100 RED
KnplUN~,*¥HE DEABLl DENNIS", 'SILL
110 LMR -sushtodf CDBESjOM
I LILLI-,"7HE KINSD (WEKSEC
200 LET L* USB 18061
5B0 POKE JB11B 1W POKE 3810B
2095 BEEP .01,20
210 "ffl«<2,BI
3100 LET TIIN1-U
220 LET M<l)=*TBSTftTUR"
2120 LET Tll,I*IMI = PEEK 50000
230 LET 0112)=- JOYSTICK'
400 LE! W-™1 FOR NMOOOS TO 4
2130 LET TI1,2»N>' PEEK 5OO0I
240 DIH 1HZ,10T: FOB EM 10 2:
0000 STEP -I: LET M-Ptt OBt (
3137 IF INKEVt 0" THEN 60 TO
mm TO KM READ Hfl.N): NEXT
WKHtfflSl NEli N
2137
110 PRINT AT 10,7; -SCORE: ■; IN
250 MA 219, 2, 239, 1,247, 1,251,
2150 60 TB 300
1,127,4
i20FDfiN=l TO 5; BEEP .05,10:
255 DATA 11,2,51,1, SI, 4,31,3,11
BEEP .05,0: BEIT N
EH -,'R1IHT£R^,-FE0ER ■
21* LET K-'WlfflC
MO IFStlPI<25 TO JOKPI IHEN
270 PDKE23i5B,a
310 PAPER 0! BORDER 0: W 7: B
3005 US : PRINT INK 2] PAPER i
BIGHT 0: FLUSH 0: OVEB 0: CLB
LE1DER KEIN HIENSCORE. 1
sAt; AT 19,0; St
320 POKE 3BJ0B.1
EBO PAUSE 0: GO TO 300
3010 POKE 38109,1s LEI I- HSR 38
310 LET L= HSR 30104
700 FUR MI4 TO P STEP -Is LET
310 PR1N! ST 5,2; INK Sj"i"[ 1
3015 POKE 34118,41s P0KE3B119.B
W !;■ STEUER0N6 ■; INK • :«( PE
Os LET L=IIS» 38104s POKE 1B1I0,
EK 40059*1)
710 INPOT "HPCIIEEEE!!!
Os POKE 3811?, it
350 RUB ' INKS; 1 2"; INK 7;
M RESULTAT 1ST IflT ■
1020 PRINT AT 1,0;
'" TASTEHNARL-
ER DEN BESTEN 15 !!!
3030 FOR N=l TO 15
m PRINT ■ INK 5s* 1"; INK 7,
1035 IF NUOTHEN PRINI -O";
■ tUEHSCBRES"
NNAHEN EIN.ItlALlBDUCHBTAB
3010 PRINT N;SilN): BEEP .01, Ns
380 PRINT AT 11,12; INK 5! "ME
EN) OBEB DRCBEN SIE NIB! 'ENT
TEN:"
ER 1 . "; LINE 5*IP)I4TD2
HO PRIM AT I3,14| IIS lj™|
715 IF 5»IP)(4 TD21)»"
4W PRINT AT it.lljTtlJlj AT 1
' THEN LET StfPIH TO
(55
S,!!;!'!!); 1 ";T[12)-, AT I6,14;T
2I)=-]RBENHEI4AND'
MbO 60 TO 300
720 LETEHPH25TC 101-Pt
9999 SAVE 'SltfiSHBABIC 1 LINE 10
730 60 TB MOO
RE I HER 1985-
420 PRINT AT IV; I* V ST
1000 SEEP .05,20: POKE 40058, I P
£EI! 40059=01
Listing 3
ART KIT DERFEUERTASTE."
1010 PRINT AT 5,14; INK tlttl P
10 PEN SNAKE-SMASHER'S
430 LET L= USA 18132
EEK 40058*11
20 REN NC-LnsbET
440 IE 1 IN 3UU AND PEE* 4O0
1020 IF INKETt <>■■ THEN BO TO
JOREtl
IO20-
40DEF FNOI)=H CODE M-'tl-l
1010 BO TO. 410
2(00 PAPER 7: INK 2s BORDER 7: C
60 FOR 7=1 TO 5?
2010 POKE 38108,2
2020 LIT L= 1ISR 38104
2030 PBiNI >T4,0i-BITTE DHiiCKE
H SIEOIE ENISPSECtt-ENDE TASTE
100 LET dEt-O: FOR Ml TO 1 ST
510 FDR NMOOOt ID 40015: PCM
ber beneben sie den imnat IN
EP -15
N,TI PEEK 40058*1, N-400051: NfclT
DIE JENEILIGE RICH- TUNS.'
2035 IF INKEW <>" THEN 60 TO
110 LEI a«=dK* FN Oil
520 PRINT Al 0,0;-
120 NEXT <
2040 RESTORE 2200
110 POKE adr.dei: LEI pr=pr*dK
20S0 FOR H=l ID 5
140 LET idT-'Or*!
24ft READ g%: PRINT AT 8<I2*N)
E 5"l III 7; AT 2I,0 ! -ZEII:-
2070 LET L= UBR 35247
b'tb m pr!! IF Cr=pr2 m% S
2075 LET 14= UKFJfl
170 PRINI INVERSE Ij'Tippfplile
20B0 IF I**" OH 1M- ■ OR CODE
r in liilt "jan BEEP 1,-10
11-11 THEN SO TO 2070
'"""""
,„.„,.„..,..,..,,
Computer Konlakt 2/36
203 LET nptnrtlt
210 If O20THE* RNM1IZE US
R 32B8: PRIItl AT 20,0;
220 fill !
230 CLS '. PRINT AT 15,12; FLA5
H Ij'PlllM O.K. -
2M PSIKT ■ fertia !"• S
Mn! 1 : BEEP .5,20
250 SAVE "siishcDdE 1 CODE SOOOO
,1200
SM OHIO •ii(S7t3»H;J(0£(i)i:
6C U«'<l!l Id.'.-Oc SeleiM" "'-S»S
I IWct ^0 i60it«t-703: OwllC so* 1 2
r.Hli^tJBiXOIHWAr.sJW
3D E«'A •06O2»5(3OK«c;iaC6:2i
Jtg-.flW.S: «««*!*;« nO'IlSt IS*
K 1 el 71c MOM MO 1 i 4 1 OM r Id 1( k ' !
?OMMtcic»0':«;tNO«;b\S5W
K0I4TA •feUtKMIcllOlltllOt
° ■ < r .■»».'> 3 : ■ : - a : '.. - so i H
b .'kK.:»I00O(.I -.««!;; K4?:t'<C
OiOOf.f &028(. 70(0 1 ( Ollc* a* . 38 7'
;.W »•» '88?;r;:ti0eO!'t5t»i
«M5*;:H!i«i5eMi»io:ti!f:iii
■ co* toi ;bo2?o i «si»o m e« it «
. i;:;c:ji.*f»*.f iiicKoH'^M'
110 MM •:««tMUJ«UHW»»t
SedV 2) 765(803 7 '63c 2 1 « 12? >5l f , 1
'01 1 it 1 J02 1 ifc 11 tlSsd .'Bft 1 ' : tfic
J7000W 'JC 1 ! 01 ;<3t 1 2! 1*20* , ,r ii
!» (*■» '2l52teJit;BI!f)'i;lt
5t Wt5> i not 'e ;s ;toic 0*52201 ooo
u.:.i.i:a):":.4iw>.!:;;«;;!>
if 1--.1.. ■,■:(••? :-':«'''.:«('
111 IWC -!10(?6WK^t«el2;w
sstc iwa ioo; t< « ociiwi i»i as;
S : 5M ?Mt i *,K 00, -: • W-mtif j=0> '
.-•>;.!•:::» <r :.■■• f ;1-* •'«
no -.:■'-■ •:«»:.-.■: .'.(•»" ;mv
1 : tK< »GS8< I f * J* J 'iMMOt C9» 1 •
)<>rti>;wi owitoto; :5: '-. ii: a; i sw
021 5Mc Tot 1 2.'2 Bl )) ; cOl 1 1 • . 4SJ2
180 jvo •IBSe6Jcc48880iii;1S«B
i«>t i io">otot(5i moo::c '■;■ ««
Oi s9(e0O:CS5c 1 '; l Jlfc HciTMu IT
rtH: lrt3JM:i0ert«t :: 11* rSiS
1W IOTA «(l3<l«!MQl;tMK:iW:
o ! iei «: v : 3!fc He e :ts« i i o» v, ■■ i
)-.niia!isae*itBsnMi:ii«ii!
MB J 1 Set J«S!*«< ?* . a»f M • .^ IW
100 MIA ■20MM*trf2]«M81ll»
MS 1 S1W* J0fB»Jt2MM?S40:l?:M
Ill0lo».ta;;:»wi6Jo;i;:»rfK
i J I it SC5434 1 3«l6(71f 1 1 Ot I • , M TO
no Bh:a -.iiicaOOOoaoONOMOoc
J l;92c dB '8: isOBii * f)0. W n2; 81
i5» jtof ;bio/i;;< ;o=ttirM02cC
, .- ( t . ' ■ 'i . . e 5 ■ v . : « * : :■ i * : ? i c
i(cZ72B02
fbc-28347
430 DATA
e2B04343
iwmo
GMifcd
MO BATS
e6021005
[00[d64S
450 DATA
600td5H8
■ ■■
cOOedbBdd
10100cdi4fl?tddI8?3
6ta;diea?t3tlBi215
J Sai5<l5e5edl>B21M!
fflHst&mantn
n W21tB0OOI5BCi2r5(!
L015BOI000577e«bOt
Bjtiaias»f0(»
e002BOeild7eOkd , ,t
03b
ISO
570 DATA
67e(e03 , ,5257
0205b lM53e!Hd
"504: (
0d13EO532
(9frjf7BbfeH2
zB
H2OOECS0P1061
B5b(E03!BI13eO
il£O721110rfd3
570 DATA
2B!02dd21
E032B0236
cJSft
OW4dl2310lr!57OPU(3
35100 j3e01 3255-, 4139
?H52b2i>3frl010917[d3
3138(000021 llldHbEZOO
460 DATA
470 DAT
mri
: - : ;!'
c2b3e07bt
*«lni
60011 1400c(b4B
'808061 21021 10<
3dd1e04dd4
Wd3t000add75O
5Ld(28(',6431
630 DATA
05B7HrtM*
111654(300
tUHMn
(20Okdd09
0'12335c2j
sJianseo
l
4BS227
lc90000002
1 ■:.■
?7td61 1300478c
52i7Wt2
470 DATA
BlcEicitb.
SOD OAT.
teflSeS
510 DATA
7!csd435
»ftf(<]02S
520 DATA
M0W2] 5
'ItOOSO
3cDl548d" T 4
14
W (28051520(41 820 1e5
td44B?ddeldlle00i:ildd9
St003i7B')cbii20143j7(9
5(c3i:df7Bbdd3500(E((5
7003dd7e04(160b , ,4202
)4dd<>5cdbB3Bdde!0M7d
(02bic»708dbb201bl
B2lb80c.060ill0100t
■ 4353c! 16003i5t>9cl
fbB2 8515*0 5b e29E(t7
b051afe0 0280i 13 111
fI150c30101OOed',l
'b01832edSb57?ca(l
55c
as
■idbll :■
■217rtc
OcdbBBBlBI
<:(UiKC',5
5c22dBB3W>
dliSEddSM
i2B730d7e
efeMMi
IttfMN
■
(b82831152
5C-lrid7
H227tft
97610(7
1 00001 B
2dd71030d700l!
■■■.-■■;■
*l«280i7E(
;*
ItSMi
731 Be 70000000
!d231?031iHai
340 DrTi
805fe00t2
ddbeO02B08O6O
dd36050«df2B
'""'""
Computer Kontakt 2/ee
I "I8203ll3!ckll3fcb3li60 710 DATA ' 747*0404 00007E 407 E3 26
JtilSlHMIrtl Id 1 602tdb B8B3l2Eld2M 27 !00003#I03e62657 EOM07c040(060
i4U02Mi[db5(i300000WDOM021Ul tOMOOO3t24247E62?s00M7e44167t0
Fbc2i)2a2J35207t349i2335- F 150I 47t00003#220B0B(00B0024M' 1 2582
M DATA "20763fc02Si531cd6033B6 780 DATA "3=247b6262C>O(i03c 24247
l:d b 3B ( Sc03bt20f BI 2 J79C ! Hid 3« eb 7o20M0! C2424 7ti27fOO0O7 :40406
B23|W183c2i37WHi4SJ«cf«072 O6O7tMOti7Bt(4262627e(iMO3i;203it
'mMMSLlOiWutHIW^Mt 06(i?s0MO3e203e60406O0000 1 ,3422
i WTO -MlMTJlSllcSiiUdOU; IN DAT* "7t1W66i627rt{H)042427
KI(kfsOO2O02lEGlB677d464JB0 (626262M0008080B1B1BIBOOM04040
. JO 1 Ot t7c J36S1 L Bl Bed ( 2Bf 04k t 40t 4c7 [00004444 ! e 62626200004 04 04
D 1 7 2 n37S d 77 2 1 1 69 d35200b36 " , 4864 06 M7rtOM7ri J* ;4a6 Ji iOO " , 3 1 [ 8
) DATA , c&i379dii03in23:W B(0 DATA "007C444444446400007I.4
iCO0OOSiS29cd6123fl0lik4!24f0 24242627E00003e22!2!,.
lllMd473E!tt9i)4fO6ie[54IOO10f 242467EO4OO007e427f4444440OO07e4
:li<H B21319dHct>340f3i50", 4 747 C7e02t,3JeKiOMel010303030" ,3i38
I '9:(«2![Btdd3K[?21B09 BIO DATA "000M21242b2627(0M04
:36042H600 1 1 821rt 1 bBOOedbOSiO 1 3 24242723 23eOM04 24i4 at ii e7e00(04
>9c32391d 3I7[1h( 3354M Iff 551 2«3c7 (62620000424 27 E0B1 B [ B00007
?571:OH209ed43519c3EO432\5514 cO27e6O6O7eOO240O7e 426 262", 3520
760 DATA , 219d3e32S2121d21[B02; B20 DATA , 7eO024OO4242tI627sOM
22<:1d21960l22349d<9007e4i4i42H7 01(10 l«7[3Bl(IOO0M03B7< 101010000
(WOOOBOBOO I B 1 B 180»07b*2027«4» O0OOBO[7eOt 08000000 10307s 30 10001
sO00O7c 43>O20e7BOO0O444 4 ■ , 332T ClJllIBMlfltttlHtllSr ,22*1
NORDLICHT
SOFT- UND HARDWARE - Inhaberln Anette Langs - Postfach 10 37 71 ■ 280O Bremen
ZX Spectrum Software
inahmepau&chale DM A.—
1ST 04 21 732 47 83 Frisch aus GB
Computer Kontakt 2/86
SINCLAIR 16
Melbourne Draw neu aufpoliert
RirdenZX-Spmrnmsibm den. a W nicht utMRrife
»jted ta voriltargehHid rod de. Window enjebenskh
vomlw all'di^M-regram™ ^S'n T^w Ko^dS
^r^rithu^V^o^ 5^fcS?SJ£S?S
Draw HJ e'wA Renner unttr Mhcr lllch ^ cillcII , McQil]
wrdeo An "' Er " ,e ' praeraI, " nSn *• ™" «j** "j*"**j* umfang-
H
rEnauoi Utotmt 1
Attribute ™d^mprimfcrt al! Wte*«l MW
Tuspeichem. [m giijistigsten tW?
r ""TT l: "' : '" ■'?'-■'■' ■"' "t'^n'i^T-ODHun^ ^Da-
fl^^hmt^bfettf 1501 ' SChn " ^^^^™^^^
Computer Kontakt 2/86
ASSI, der Miniassembler fur den
Spectrum 48 K
■m Sie audi d as Hilfepro
Das Abspei- * Hejzahlen nur grnBe (Bap. JJjjg _
Hilfsprogranun
liO LET d=d+<l MB«<2<H)): LET
W Mt .< cow
st,s-st
(.-(.til AKDiDiai
I REtl © Dieter HDtstlwann
19) RETURN
jtRl LOUD "
JByBLSfe-
b REN M stun -['60 TO 1001'
WJ.JP nuigt
1M lF.t <>"]" IMilOV TH
EH ED TQ MO
W FP-uw
261 INPUT llitt
des Proirnt; )
21) Win "CodtniM tall. tUrj
111 IF LEN »*■■!« 3* L£N.«1
T£H SB TO 210
155 IF LEU itM THE* LET nut-
212 PRINT ST 21.0; "Sate ' - [*s*s
SOU REN dei-hex
<M IIS ft ): FCffi f-l TO nut
SINCLAIR
511 PRINT AT 2l,0;"ln
(50 RETUS*
500 m /"ten
510 LET n=l
5J5 LEI s-st
a LET st(fi)- STM 5
* 5*
t; IHKO; BRIBHT 1; AT f,24;e
fi*T,2T0 ): KIT 1
it 1200,
1134 FOB f-1 TO 20: PRINT AT
li BIB s*[200, 51! LET
-0: in
JJ- "i NEXT Fl PB1HT BT i-U
*■)
T» DIN nil It, 3): MR i
101 1 LE
: IF LEW i*>14 Ofl LEU i til
710 mpin 'StirtitrKs
V*k
N Bt TO !20t
1201 IF if=V THE* STOP
BOO REN Bruck-l|inr!l"
1202 If lt="f OH ifcwle' 1*
"BOSCLS
80 SUB 2M; EO 10 11M
BID FOR (=1 it an
120! IF lM-s* OR itstiw" T
320 LFSINI s»lf>iV;d
GO SUB 2*0: EO ID It 00
m,t to i
1204 IF if=T OB lt="lnail" 7
HKPSun =t(fii-.";*'
!U*<*»
BO 99 IJt: 60 10 1100
:!05 IF it(ll="-" THE* EC SHI
BWKEIT f
00: SO TO 1102
BtOPRlfl 10; "lei, -■=--.
«*• Pftu5
120* IF il=V OR if"**' '
nr: IF dl(n, TO
60 SUB iWl BO TO 1100
1 THEN LEI 5,=r
lit? IF it=V 0Bit="help" TKEI
GO 3119 301: in
ED SOS itt; 00 TO 1001
-rH3 It til LET
I21B IF i*=V OB IPSWf" THEN
sy.lll-! 10 l*rt
bo sub Jftm so to loot
BO TO 1100
STM
LET pn=l: EO SUB Ms LET po=
1253 IF tfrttf.' THEN l£
•lit
1341 NEXT 1
130 PRINT "listm ill attr tin
1S43FES f'l TO t LENllJ-41: IF
eben (ttj*
uilfti TD M^'HtMl" THEN LET
135 INPUT It
WMthl: LET ti*-Ji*(3 TO i)
140 IF Jl'V THEN 00 TO 200
1314 NEIT f
15) IF ft-¥ THEN 60 TO BOO
)'": LET ejld.l:^": LET
1350 FOR 1-1 ID SOD
160 IF *Kf" THEN BO TO 1M0
135! IF qtlf, TO LEN ul)*ut THE
170 If *■* THEN 6D IB 1000
* LET Bflill=i]*«l! LET 1= VftL o
1241 IF Ltlul'-i- THEN l£
llf.lHI; FORr^TB LENht-lj
200 INPUT -sUrtBunltiM
rtl: LET M(nr)-iiiu IB !:
LETr
LETeHd,l-9)'h»( LEN M-jli MX
300 INPUT -Belthl'iqilll: IF st
6DT
I g: 00 TO 13"
a,H»1" THEN 60 TO 120
1355 NE1T (
100 INPUT 'Hticmte'stti LET oil
I2W HE IT u
13i0 PRINT ST ZlpO/Fil^ihsEin
1,11' SIR* 1 LEN tf); LEI 0111,2
1275 LET M="
gstE !": LET J"JM: BO TD 1100
TO LEN «tl)=tt
I3W FOR 1=1 TO LEU ill
500 mm i; t«4Htan tab i
1320 IF CUBE BHlJfl AND
CMC
iittl<5B DR CM IttflX
MID
Ha up! program in
iW LET 1=UI
CBDEItlfK71 THEN LET h
BOS FOB 1*1 TO IM: PRINT !;'->
1330 HEIT f
•Vmi- : >tlfl
ktnMur
BIO NEIT f: SO TO 120
COD
1M DIB n((J0O,H)i Blh DK3M,
1000 SAVE -ii 1 WIS (lOi SAVE "o
E iitlf)>47 Ml CODE uiifXKBF;
' MTfl oti.li 60 TD 120
CODE UHIIH4 AND CODE
120 PRINT "Feld laden if) Oder
1200 LMD " jfiTfi sd.il LOAD "
71 MS LET rtffl»T
sppic ern s
DMA MO: GO TO 120
SpecDrum
SINCLAIR so
Loschen und
LIST/LUST fur beliebig
viele Programmzeilen
urns ware RANDOMIZE
100
IF chock Osujime THEN PRIM'
er !■': STOP
110
PRINT "USR = ■ ;adr + l
-,'<«i
DATA 231, 254, 234, 33, A3, 23:
,205,59,45,223,254,204,32
,54,231,205,59,45,223,254
,13,32,45,205,153,30,120
,254,40,48,26,177
DATA 40,12,197,225,205,11'
,237,91,75,92,213,205,153
,177,40,10,197
DATA 225,205,110,25,194,1:
,40,24,3,42,83,92,209,229
,237,82,2^5,210, 139,40,23
, 205 , 229 , 25, 207 , 255
Programmzeilen listen
I 2 3730+ 25 A* PEEK
i FOR x=adr+l TO adr+i:
) READ byte: POKE x.byt
) LET summe=5umiBe+tiyte
200 DATA 62,2,24,2,62,3,205,1
,234,32,76,231
, 205, 59 , 45 , 223, 254 , 204 , 40, 9
Programmzeilen loschen
2 REM
3 REM Aufrufi
4 REM RAND USR x: REM n TO *
5 REM
10 LET raratpp=PEEK 237 30+ 256* P
EEK 23731
20 CLEAR ramtcp-90
30 LET aQr=PEEK 23730+ 256IPEEK
23731
40 LET sumne=0
60 READ byte: POKE x.byte
70 LET 5Lnnme=5umrBe+byte
90 NEXT x
DATA 237,'
53,30, 1
205,59,45,223,254
,205,153,30,120
B,2b, 177,40, 12,197
110,25,32,31,205
19,213,229,237
215^209, 2I3J 229
,82,225,32,240,207
Computer Kgntakt 2/S6
Spectnim-Quickcopy Saboteur!
. s-s 5S«. s;„ ,t, s *"-=".
*"
Spiclfjgur laufcn. s
^st " : ,_"
M-Code zu Quickcopy
I5S28 17 17 « LD DE, 17
. 175 XOP a
kkLKm, Aft due
ilH^^^^^^^^i^Hi^B
111 33 a39 E S9 LD I*
35533
§■■■■■
■: ■ . :^H
i tH 1 rv •
25535 63 255 LD CI, 255
17 1S6 LD DE, 3B
25630
■
20545 2SS St 5 CALL 136|
255S1 237 Si SBC HL , &
Ml _ 30 P |5 LD IX
I ~ 3 O LD DE, B
2
2 S6 *
■ '■''.'" - :. V; . i"-'
Quickcopy
! = CHfit ( PEECn): KE<T n; LET i
1MLET IF USt 55535: IF (i OK
5 THEN PRIM BRIGHT |j' ERROR
120 BEF FNftlll* PEEK <*25fct PE
; ';< Bytes ausoelesfn "s REN
EE fHlFI LEI leri^FN hirii LET
<•> REN hy B. Prraaiir I9B5
idr- F*B^*Si LEI bss= FN ill*
IW INPUT -Neosr Nil:-: -;iti IF
ID CLEM 25519: LET S*=M11100
134 LET ^["Pros™! 1 MD NOT
lIBWl POKE 255B3iniraO£ stln
If 37 M2 1 Bf 13r ffilDSBif SrtjBf f 1 1 04
typM'trrjy ■ WD (jflH-lt
It 3 7dd2 [ OOMcd 5*052 1 OOfc *1522b2I
-Array ■ AND typ=2 > -■ i ■ (1- Code ■
100 PRINT id; 1 SAVE "jsV'toid
WD Lip-II
1W PRINT ■ INVERSE !;■ , t»]'
: "ss*s" *: PRINT " Besait lunge
320 IF IHKETt-" THEN 60 TO J
ll-nl'^/Mssivfltir'"
150 IF typ=3 THEN PRINT ■ Star
"sjO MIMJII1IE HSR 2551,0: FOR .
ltO IF NDT tvp THEK PRINT "
HE USD 2H20: INPUT "
110 LET «=!55B3: LET lyps PEEK
i: FOB SFItl TDlUtl LET dln-i
HEM PRINT 'ill lffll}!"i GO TQ 100
00<20M(i (=':■(: m Pr„,ra«
Computer Konlakt 2/86
SINCLAIR 22
ON ERROR GOTO
ZX Spectrum 16/48 K
nngi ( |
seat don da. Progranira for,, dem aiif die Rkl,i v .l,!i ,1,t .,:
ti-ierenunddanachder. Sprung Ei „ a™^,,,,^,,,,..
35 IF d=l AND n^id+21 THE* POKE ji,5!l LET n=n
tjl POKE n,5?: LET «tail RESTORE 15
io ier ii
42 POKE id*7,INT l(id*21)/2S(l
43 POKE idt4,256Mlid»21)/256-PER (id*71l
45 IF t.05M2 THEN PRINT PLASH i;BT 10, ifft
hler in den Zeilen 10-35" : BEEP 1,-20; STOP
50 PRINT ■ tjtwIeMerPrsi"
52 PRINT " -Stir tad r«Mn : ■
55 PRINT ■■FunHion iktifieren: ";ad
57 PRINT '" " insktiyisren; 'iad+12
60 PRINT AT 15,0;"- CONTINUE mi Savtn in Iffi"
70 CLB : PRINT ST 10,6j'SAYIItS MDE "nft'.'lS
7-2'd
k 3a;; -ii, 5m ■■:h-i iwiicobe id,57-2id
90 ew
95 «■
90 ■■■ ln\frc;im
r> i£1
tore- mucta FeUmd,
71RE1
10) LEI i'-Nd
MOLE! imlfid<12
115 REN
120 RAMON HE USR ikt
130 RSNB0NIIE WOO
135 HEN
140 INPUT -ft-tni si; iroendstajs Error er- ;;u;
145 REN
150 RANDMI7.E IBS injkt
IMPRINT AT 10, LOj-Kein Error": STOP
ISO REN
190 REN
1000 LET e=P£El 23610: INPUT "
1010 PRINT t0;CHRl (49t!'Ji(t)71l| ■ ■;
1020 IF e=l THEN PRINT <0; 'undefi niH-te Viriibl
Hummer (Otoe USR)fcstle S en. p^/mm™MmprobiereH
rorhoivDnjerofeneiiSiii-.iriKlif ' Wilder Routine niehtdiircrl
■..■.;.■;::..■■■■.■.■: ',„ ■'.;-■', '■■.' I
1 HEN ON ERROR GO 10
2 REX lilHIIIIHHIIHIHHI
3 REN by Lnreni taller
4 REN Albr.-tuerer-Str.S
5 REN I2<!0 HILDESHE1N
1040 IF f=li THEN PRINT 10; 'STOP t>ei Eir.gabe";
1045 IF e-20 THEN PRINT IO;-]etit nii lehr BRE0
1050 PRINT t*,', -jPEEC 236621 25S'P£EK Z3i63i"s"
(PEEK 21664
1060 PAUSE 0: ELS : GO TO 100
13, 4!, 92, 5t, 3, 35, 54, 17,201,11,3,1?, 229
15 MM 217,75, I1B, 92, 11,15, 39,117, 237, 64,48,
2, 207, 146,(2, 69, 92, 11,110, 72, 53, 71 ,92,50,112,92,
205,106,30,195,158,27
17 L£T ad^65000: INPUT "Start bt>. 65000 7 (id
21 LIT ad-PEEK JJJWaWSt 2371M
10 FOB n-sd TD ad*5i-2id: HEM t; LET mm P
□KE n,c
Videopool zahiTid^chl^fct*'!
Computer Kontakl 2/86
SINCLAIR 23
MacAdam Bumper
Dukes of Beta Basic
Hazzard User Zeitschrift
4™ ^" na n H°di m L nk
.-
SINCLAIR 2*
Assemblerl ips fur den Spectrum
6. Teil: FlieGpunklarithmctik in MC-Ptogrammen
OM _ gibtaucIieLilenCuik (341. del
StBjKfeKsUMt.
ft-|irivlLrtoj-dsn-.ehrK.-17.^i!
«* B^f**
W FmfcibW ■*«■„.
i/ll!" "-' Mvr'if Cl's'''' " V*
"!' ... .. ^h" r h J' n ut I der -'^
Swkh™ ZUHmnU:B!lBilE
■ ■''.:",■:'■ !"V.: i,: '.'
riableMEMemh:;!' Norrciakr
*=" weiHisI iliis HQMUO-I . A,- :-
ih " aiittimctische rJiK-vj:;,.:,,: 5 ";.
«>n RC Mi J.M Siapil lliiEtT-
iiHf
™ B. SOK) zersloreu di-n Inhiilt
nhpiwWsS.W^ ' lm "? : . l ,' L "
■ ■ ■ ■■
hncllscllt Opentiooen Sprungdisia
SINCLAIR 25
LD HL.MEMBOT
Uieder HEHBOT als
LD (CEMl.HL
Spelcherbereich.
RST *28
DEFB ȣ2
5BR1R*R-X*X>,X
Fazit: Der Kalkulator tann M
den Problems aumulztn.
DEFB *38
Ar'gW ™ <*»»» Assem, m.
•?"*"
CALL USTHL
LD (XOFFl.HL
CALL USTHL
X -> HL.
Listing 1
Y -) HL.
Y speicherr..
i MC-Program. i
■ Kreia-Zelchnen
LD BC,*e04
B 1 C Us Zahler.
ORG 232 ?6
fLOD
PUSH BC
LD HL, (XHPOS)
BC nerkeit.
5TACK1N = MC81
LD BC.IXOFF)
STACK2N = «C79
ADD HL.BC
UN 5 TACK = »2DA2
LD A,H
PLOT nur,
ERR_B = »1E9F
ftND A
falls e<=XK<=255.
PLOT = «22E5
JR NZ.NPLOT
5THRET = «1B76
EX DE.HL
LD HL, IYMPOS)
X-KDDrdlnate -) E.
ERRSP - 23613
LD BC, (YOFF)
MEK = 23456
ADD HL.BC
(1EMF0T = 23698
LD A,H
JR NZ.NPLOT
Y-Kcnrdinate
errechnen-
PLCT nur,
BTART CALL STACK2N
Hittelpunktkrordl-
falls B<=YK<=17S.
CALL STACK IN
naten (XH.YH) und
Stapel legen.
CP 176
LD B,L
LD C,E
LD HL, HEHBOT
Bereich MEHBDT zur
CALL C.PLOT
PLOT-ROM -Routine.
LD <MEMJ,HL
Zwlschenspeiche-
MFL.Ci
LD HL, (YOFF!
CALL NEGAT
RBT *2B
XK.TM.R
LD (YOFFI.HL
X- und Y-Koordina-
DEFB *31
POP BC
ten abHexhselnd
DEFB *04
XH.YK.RW
BIT 0,B
ait -1 lultlpil-
DEFB *C1
R#R -> Speicher 1
JR Z.NXNEG
ziert und unter-
DEFB *B2
LD HL, <XOFF)
einander ver-
DEFB *A0
XM.rM.a
CALL NEOAT
tauscht, se daB In
DEFB *C2
-> Sp, B <- X]
den S Durchlaulen
DEFB *02
XH.YH
NXNE
DEC C
alle 6 KnWlinatin-
DEFB *3S
JR NZ.NOEXG
LD HL, (XOFFI
nen auftreten.
CALL USTHL
YM -> HL.
LD DE, (YOFFJ
LD <YHP0SI,HL
YM apeichern.
LD 1YOFFJ.HL
CALL USTHL
XM -> HL.
LD (XOFF),DE
LD IXMPOSI.HL
XM speichern.
NOES
DJNZ PLOOP
MEXTX RST «28
St ape 1 leer.
RST *2B
Stapel leer
DEFB «E1
ton
DEFB *E2
DEFB *E2
R*ft,X
DEFB *ftl
X,i
DEFB *31
R*R,X,X
DEFB *0F
X*l
DEFB MH
DEFB tC2
X+l -> Speicher 2
DEFB *03
R#R-X*X
DEFB *02
Stapel leer
defb %ae
DEFB *3S
LD HL.BUFF
Speicher bereich
LB IMEM1.HL
unlenken.
LD DE.1XCFF)
RST «8
LD HL.(YOFF)
DEFB *29
SBRIR*R-X*XI [=YI
AND A
DEFB *30
SBC HL.DF
qr-oGer als Y ist.
Computer Kooraki 3/86
SINCLAIR 26
IP C.NEXTX
SORLP INC C IZahl gerundete
LD SP, (ERRSP
iStatk loschen und
INC DE iUurzel dss
JP STMRET
INC DE ilnhalts VDn HL.
; Basic-Interpreter.
BCF
BBC HL.DE
LIETHL
CALL UNSTACK
iOberstes Stapel-
INC HL
LD H,B
iElenent in BC ur.d
JR NC.SBRLP
LD L,C
iin HL bringen.
RET
JP C ERR_B
IFalls > 65535.
RET Z
JRET, falls pasitiu
ICBAT
LD A,L
jDiese Routine
CPL
LD L,A
jkonplenentiert den
llnhalt von HL
Listing 4
LD A,H
iCer-Kompl.l.
CPL
10 REM Routine zun schnellen
INC HL
RET
20 REM Zeichnen von Kreisen
30 REM Prograiniautnr:
10 REM Michael Schramm, Kiel
XMPOS
NOP
iHier Herder.
30 DEF FN A(X»J=CODE X*-48-39*
NOP
IX*>"9")
i-upqs
NOP
labgelegt.
60 PRINT "Einen Augenblitli bit
MOP
te - die" , "Maschinencode-Routi ne
NDP
wird","uorbereitet.'
NOP
70 LET A=23296: LET S=23116
Y0FF
NOP
80 LET AS="cd791ccdBllcef 31043
NOP
82 1 000922c d5b2 2c 95 be db 45b 22c i 5bc
BUFF
END
;Z«i5chen. P eicner.
db43b22c75bcdb45b22c55b2acf5bed5
bcd3ba7ed520I + *001H : e-f f0cl31337e
d 5 2 2 3 30f 7e d 43c b5b0608c 32ac 55b e d 4
Listing 2
bc95b097ca7Z015eb2air75bed4bcb5b0
97c a 7 2 008 7d * e b0454b "
90 LET A*=AS+*dce5222acb5bcdbd
10
LET XM=128
LET VM=B8: LET
5b22cb5bclcb40ZB092ac95bcdbd5b22
e 95b7 8 efi033d 200s 2 a c 95bed5bcb5b22
LET R2=R*R
LET X=0
c bSbed 53c 95b 1 0b 1 2a c 95b 2 3 2 2 c 95b eb
SQR <R2-X#X>+.5>
2acd5bl9192b22cd5b2acb5b37ed32dZ
PLOT XM*X,
rM+Y: PLOT XH+X.Y
2 5 5b e d 7b3 d 5c c 376 1 be d a22 d 606 9 d a9f
PLOT XM-X,
m+r: PLOT XM-X.Y
Iec87ded446+7c2f67c9"
100 LET X~16*FN A(A*(1))+FN A(A
30
PLOT XM+Y,
rM+x: PLOT XM*Y,Y
w-x:
PLOT XM-Y,
fM + X: PLOT XM-Y,Y
110 POKE A,X: LET S=S-X
120 LET A*-A*!3 TO ): LET A=A+1
60
IF Y<=X THEN STOP
130 IF A*>"" THEN GO TO 100
70
LET x=X+i:
GO TO 30
140 PRINT
150 IF S THEN PRINT -Fehler- in
100
REM Kreis
eichnen ait
At 1 ■ : STOP
mDegli
160 CLB : LIST 169
170 FOR 1=1 TO 30
180 PRINT USR 23296,200-1,50+1,
30+3*1
Listing 3
190 NEXT I
S8RT
LD BC,*00FF
Die5e fi ou ti n .
LD DE.-2
berechnet in BC
die zur ganzen
SINCLAIR a
Beta-Disk-Interface
Hardware — Spectrum — Hardware
Pie T aataturae nsations
SAGA 3 ELITE
Fur Qraflk-A nwenderi
SAGA GP/SAGA STYLE
Touchmaster Graflk Tablet, Datapen Lightpen
Fur CP/M-A nwend or :
ZX-CP/M-SYSTEM
Das Auf steigersy stem
Die Pruckcr q u a I itat :
RITEMAN F +
Highway Encounter
Nightshade
Mtht.ilai- urn Alien i
RliiVI-Fiiller
IC hiN R f M
84 BELIEEIOE ZE
a aouE
3 PRINT
* INPU -
b let e
III
■'uTeuiel byte ?"
•int iR/asei
16515, B-Bti5t
19916, B
U9P 1991*.
:e rem
sa for b
as input
a* poke
a9 next
■19914 TO 16537
B
4,B
"LOE&CHE zeile aa-afi"
Daten
eaa ai3
!8S IS! 8!I SH lit !88
aas e39 las 33? is* aei
Computer Kontakt 2!
COMMODORE
Floppy-Kurs fur C 64
■ ' ' ■■■ - ; : :■:■■■■■■■.:•■.■-■ :■:
Computer Kontakt 2/86
COMMODORE
-,:'<7,.;-;
t 2000) bcsita zwei Aufga-
li?
1^";
,u^Zek
r HinrcrsrundMor-
iil(3) =
, V"
e a llmcn mflgft±
iil(1) =
s
■:;;;
Swdcrt
™"
IS
Computer-Kontakt
hat preisgunstige
Kleinanzeigen
Computet Kontakt 2/86
COMMODORE
Beispiel 15
18 r
(SB dim na«CI0C
30 input ■autor
4B *or i-1 -to 1
58 if sb«»n**(l
6B n*>t 1
78 print "nicM
88 goto 3D
98 print "recor
188
Beispiel 16
Practicalc 64
48 It sb«=ns«(i> then 88
Beispiel 17
38 Input -»utor I "Jab*
38 for i-1 to IBB
48 it sb«=left»(n«*<i>rl6) then 88
SB neit 1
ight*(naS<i>,4>)
Beispiel 18
18 rim ***** bi
Mr. Do
4B i»<8>*rnd(0>
43 print »,
58 gosub 188
B8 nut a
78 tori* 1 to see
8B print ix(i>i na>
38 end
l)>llc(8> th*r
■ix<8>
Computer Kontakt 2/
COMMODORE
Superpokes fur den Commodore 64
,-. :_Hi)J^iMiKKrt 16475,173
COMMODORE 33
Master-Grafik
■ :
MERGE crlau
k ". ::^:
K^
fll^t^ssr''
E™2to™
MOglichkcil 2111 Uiurchnni
men-, Hinlcrgrund- und Cu
llemsller:
/.e.yekn
^fn Quiwi
inn nlrht Qji ft i is' e i r9 Ouizspifl filr 1-
tr "i
COMMODORE
Formel 1
auf dem Commodore
IB PRIMTCHRBdl"
SB PRINTIPRINT"
22 FRINT^PRli^T-
JpH by _
270 DflT«e,a,0,B,B, 33,254 .234 ,254,2=4 ,£58
0, B, 8,8, 0.0, 8, 44, 333, 332, 224 ,2£4, 160
SB PR1WT1PRINT" URITTEN BY CHRISTIAN
T E MINUTES-
SB GETflll IFfl»-""THEN98
91 PRINTCHR*<8>
170 R£ftDQ:S=S+Qi IFOO- 1THENG0T017B
IBB F0RK-e3STQBS5"READQ:P0KEX,0;^MT
Tea's
350 DA
37aX« 5 5,a,0, B ,e,i, 1 ,£, E , 5 e, 1 3i, 1E 7,i £
aao^
39B Dfi
2 IB SrS832iPOKE850,lS81PBKE5G576,PEEK(56
57G>fiN0252:PGKE53372,a!POKE64e,i9e
33B REflOZEiIFZE=-lTH£NS90
240 F0RT=BT07iREHDa:PDKEB+ZE»atT,QINEXT
345 G0T0238
4B8 DA
430 DH
430 DA
l^iTa'm'^Ts^s'wM^ 7 '
55,38,8,8, 0,B,6
''"'ESB's^'e^aalse E
**" B »
COMMODORE
«■
Ttt^&tfe'Sg&KS;''*' 1
"1,
»«"^M
«
n*
■i
,88,84,02,
tt a .
DATA16B,171,lBS,83,,,e,8,42,I7B r 154,
:ais
DflTfl 3 B9 C 4
-■";
"
«;."'
28 'bo BF
500
DfiTfti6a,i68,i7a,i7B,iae,Ba,,,,2,£,io
':i.::
aHTfi 8 C2 B fl c
::'":-'
'
■ :
j
31*80 3D
DftTft 184, 31,,,, 128,1GB,16£, 174,173, 32
533
BHTABS, 117, 117, 85, 85,35,85 85 85 87
C2 H9
."";.
"Z
4C S 0B 5B
z?v
■
■"
FOB 1 -2£B30TO£37BB : REHDfi*
££0B
3-H(H>t!G'HCL>:S>S*0iP0KEI,D
■ .
(EflDV:Z=ZM:IFV-STHEhJ988
:"-
SV?j?
■
S3».
s
IFH<8THEMS-eifl-aieOT02BBB
s=a:fi^9ihCMTig-aipi'0::'B!GOToa0BB
;»
iBB
2733 ' '
c- 9 :
S4S1
£703
■
■
if;
1B41
HTfl Bl SB
rr m
.
DATA 6B HD C3 B£ £9 Bl D0 0C,AQ,E3
flD 3 D7 82
..,
£581
:pii . s
:?■;
s&
■■"■■«•■
— COM MODORE 36
Cotnputar KentaM 2/66 ^~~"^^^ZZ
3,B3,Ffl,B3,4C,EE,
BB S BB I1 BB%e a E3!aB!aB eB!Ba!43 B i3^ ' '
1051 DATA 15,DB,B9,£B,8D,13
DB.A8,eB,8D.
1884 DftTfi FF,FF,FF,FF,FF,F ,^_ ,^ g
Eeee S=BiFORT-BTi363!FORI=BTD5:REf«)0:POKE
2B00B*T>23e»J ,QlS-S*0>PCKT'hEJ<T
28 IB IFS<>384B5-raEhPRIPfTCMR*(147>"D(1TflFe
HLER ZU15CHEN SBEB lift) 2S3B'
L9.0.'
FB,ei,6B,A9,efi,8D,EB,
"J |q B B „,
1056
^rafEB 2 ^'!^ 9 ^^
lB.Q4.fiE,Efi,
EoWd»TA 34 ,£B?'8. IBB. 39, 18, 43,213, 13,1
2B5B'DnTfl £8,89,3,196,43,118,33,13,3,196
;f ' r
DflTfi 8E,Eft,ea,BD,20.4E
3. £134
D4,BD,SB,3£,
',,'.''
^s^w^Sffi^w!
"'eIsg 3 '" '
.38.13.33,18,9,136,34.aB7 ^
;■:-*
3B,C3,C3,6E,
E88B DfiTfl 3E, 213,6,133, 34. £67, 33, 18,8,55
£838 DSTft EB.EB, 6, 133, 38, 18, 32, 213, 6, 133
'■-:
ftE,ae,BD,7fl r
1064
DATS 64,FB,B4,CE.DB,C3
,CE,CF,C3,flD,CF,C3,C9,
□ftTfi FB, 81. GB,«3, 81,80
sua DHTft 43.si3,ia,iB,38,is,i7,iB3,a,ia
B ,34 ,287, E6 ,£B ,8, 188,34 ,£B7
EIE0 OATfl 34, £87,8,138,32 ,219, 43 ,219, 13,
B3,aD,cB,ci,cn,[)e,F7,Be ; eD B
B db F7 5 ftE ee
Ie"»^5 ei3,lB.£47,3£,219
SIM DHTfi 14. 16E, 7, 81,34,207, £8, 63,7 ,81,
ua .:■
,CF,C3,ftS,64
■
,c3,fl3,e0,fi2,ao,3B,ce
1869
D FB H eE D fiB 8 6"fiE C 8G 9O
7fi '2737
2178 DfiTfi £3, 59,3, £87, 48, 118, £3, 69, 5, 287
,ae,ftD,F7.Be
3 34 287,38,18,3, 138, 34 ,EB7
*Sj
£££B DfiTfl 13, IB, 8, 133, 39,1, 26, EB.6, 133, 3
*
fiO, E1ES
3B1B FORT*3TO38!REflD0IP0KET*SBI76,0:l*KT
a D 0i°SB 3 EE a B6 83 HE 85
' 5, ,3,255,, 3,233, ,3 ,S35, ,3 ,2S5 , , 3,233,,
Computer Kontakt 2/86
COMMODORE
3021 W.TA252
SBBB PHKE5857B PEEK ( 36576 >ANDE52iPOKE532
32 : READS : POK ET t 582 40 , : hCXT
, 10,250. ,11,
34, , 5 .93, , 9 .86,, IB, 38,, IB, B
8810 P OK E5 4285,99: POK E54B9 I ,9B>POK£54282
,7B:POKE5O127,18BiPCmE501BB,l00
3S I READS 1 PDKET<5B304 , : hCKT
,236 , , ,252 , , ,252 , , ,255, , .SB
3B30 P0KE53254,137iP0KE53231,lB4IPOK£53B
30SO DfiTfl.SS
9B3I P0KE53288.6
30432 ,01 t>EXT
,10.FORT.4TD14.READB.POKET>
9B40 POKE53B75,BBB:PnKE5324a,l00>PQKE532
3il0 e rj°TPM5 T
&,,u,m„n,ilm„n,m
B06O DATA200, 126, BB
!ss!ies!?59;
S2,,59, IBB, .39,128, ,53,138,
3830 FDRT=728T0726>R£flDQIP0KET,DirCXTl£lfl
23 : READS : P0KET*5B624 ,0 : l-CX T
3 ill e «? n fil
132,, 187, 128,, 187, IBB,, 187,
8 IBB F0RT»728T0734iR£ft00>PDKET,0IIOITIDfl
3160 FORT- IT
2 8 > REAOO = POK£T*5869B , Q 1 hEX T
912B FORI'lT01BIREADB:READU:PORT-QTaB*U<
ITssTl^tl^
l\tt Fo'rT^II^TOSBOsTpDKET ■BB.POKET^
3210 DATA234
224 ,S ,234 ,224 , 2 , 234 ,224
IE : READS I POKE T t5B944 ,D! r*TXT
3260 DATrtlE - "
,63,48,,, 252,,,,, 3,,' 13, 192
3230 DATH48.
.48,48 . .252 ,48 , , ,252 . , , , ,3 ,
3300 F0RT-BT062iREADEiPOKET*51136,Q"NrXT
B21 1 POKE5429B.90
8220 PDKE54B91,70!POKE54292,9iPOKeS42SB,
?0 3 ?32 flTflEB4
0,63,12,3,48,3, ie,B,9,S4B,B
8258 F0RI=55296T055695iPOKEI,B>h£MT
3 B S ?™?95
iel's4e' , l43'*e'a4e B si 5 !s 3 '' 1
W^M^B^a
8280 F0RT"3B133T03B139iREADBiP0KET.a:r*:X
^POKE3°403^E
8290 FORT-58053TD50033iREADaiPOKET.Q>rCX
3330 FORT- IB
-pWTA28,5,13.1S,13
8300 FORT^S0035TO5B84«iREADQiPOKET,OifCX
3400 F0RT=7TC
831B FORT=5B0e3TO30OSe"POKET,100"h£XTIFO
RT-5BB42T05B843 1 POKET , 1 08 > l*XT
...«..»...
'
,.POKE759,100
COMMODORE
!T*3B115T05B11
!T"9B3Tt>a07:R£
aaee •
9623 >
Directory i i
Farbe
EiREHDQiPOKEI.QlhEKT
32 DftTft lSa,lB,24,3E,£4B,E53,lBE,B,189,
S, 32, 3E, 32 '32^32'
3S DftTfl 83,7B,71,46,46,4S,46,5B,141,3£,
B7 DftTfi'aaisE '3a ,66,76,65,35,46 ,46,46,4
199 DftTft 46,46,46,46,46,46,51,141,32,32,
32,32,32,32,32,
6,46,46.46,46,4
I DftTft 32, 223, 255, E
I 183,46,164,32,2
310,255,232,224,1
42,J69.73,3e!e1b'e55,3
COMMODORE
Der Turbo-Assembler
gl I™*
Wer kann Hilfe bei
Adventure-Spieleri geben?
Wer kennt Losungswege, Tips,
Strategien, Pokes
oder ahnliche Hilfen!
COMMODORE «,
Sechs neue Mastertronic ,«"«„,;
Spiele
Player's Dream
S^B*
;. : ' " ■ " ..' ' ' '
l*.iv[>el[.imkl
ntbalccn. ivej- ktrii- RUNSTOP/ RESTORE
lalk-n. IXuh
ndimdei.Wi.-r- ile-iiklmcn die Routine. Sic
AD(49152)ia kann mil SYS Emopjunt-
es iraiglicll.
vi^^A-M^Cn™-'
giamnigebden
undgeaariet. taeinftaasv g^shiteiaei. n*
iia re"
PLAYER'S DREHM I
^zSth ei ™r o™** ai d
i"*K>«
* A '
II
TfiSTriTURBEL.EGLING 1 •
it) PROGRAM* BESCHLEUNIGEN ■
198 REM
ROUTINE FREI 1M SPE1CHER t
VERSCHQBEN WERDEN. .
^,r^7!incn'vW.S-
Etae gut G. a rik. nrarigf*
368 " £W
iiiiiiiiiiittiimit ***«*t«t*t
''hJtpjT U
Bob des Spieler, zeiehnen.
pee Hunter" >». Ziel des
m ? D "' S
m
Tt™fE,de' S ^'Le e b!^mh
310 PEflD
J1POKE I.ilS-SM
nfielin Stttiuyateme aufge
Sf% X
v— 2% I
Ib 4. 1 ■
■i'-f •»! !
SsSSH
3SB DftTrt
EB,1E9,BBB 1GB BBS 141
SmSSSZbS
J2 qht"
*y v*J|
™d*Sl:
iH IE
il:S;S:S;H;E:E
™ * i
efTdlc dner ^dfe^
211 EJJJ™
4^E34 ' E53 ' E " a ' eBB '"'' ' B76
COMMODORE
Epromprogrammer
Zero 43
Ztio -.- P t ' i Sdi b«i einra RAM-Beiei- Vide dii-Si/c Muslsc
i ,.!i: l >Likilyr'io.ThaltIh.h Tn- the. ai,r,!n rp;f>m, Viifleicli s-IhVcii bciMatprogian
PHZHT !
Pastfinders
Malen mit dein C 64
wires (hiechleck). KO.X lii-jsfefiilltcs
idir.,,! ReclneL-t). DOT (SeHen von
! Ihr direkter Dnlhl
zur lledafctions
Telefonfl7IS2/42948
Fur Brk'fe
Computer Kontakt
I Postfai'h 1A4U
7*1* Rieiteii
COMMODORE «
The Little Computer
People Project
Computer Kotitakt 2/
COMMODORE
Wintergames
±ii k lion-? u .n^lii linear, urn ^ncef yei
„<
■ ■
u»
...
1,. X
f
i
I
paqeklive. ak audi sa
momenta™ Slandpunkt
I
W
"
':::
■
f.
u'iST^Sb
";:*:
cjmfe
L-nil, :l,-^;n.
' 1
',"■;
a
itcifreat und Captain F.nu,e Sflie!en .
-; Spiels licgt JMiuc): ar
■ die Schv-ierigkci. a
Spidmolivauoci
B Typen von FciwJjagerr
■ -.:.!■ ■ ■ :■ ■ ■ . ■
Planet of War
COMMODORE
HANS - Hackers Network Service
<§
Kprasenttert Spezialitatett
i««*i
*A»^ .*»■"*&
*»* / 4
••■' **»;
CK-PROGRAMMSERVICE
CK-Programmservice
SPECTRUM
rWr ,.SWI. S», 1 , f n<l,:,, : .„n m , ..H,: f 4l. (J.S, Ife-IM.,.*,,
Schliiltie n-r li.5^), Sprcemim-lnfnsyit™ (.i«S
Best-Nr. S 20
20.- DM
Best.-Nr.S1 20.- DM
Die neuo SpMrum UN* »N Gfe»* t
vrall .
Best.-Nr. S 10 20.- DM
ftMLpcetCllWi.NitioJuedl.'Sil
Best-Nr. S 30
15.- DM
si-was
Sonderpaket
Be*t.-Nr. S 11 20.- DM
SSttSKf*'
65.- DM
Tl 99/4A
Best-Nr. Tl 1 Diskette 26.- DM
Best.-Nr. Tl la Kassette 20.- DM
Best.-Nr. Tl 12 Diskette
Best-Nr. Tl 12a Kassette
26.- DM
20.- DM
"■ i '.'■!■■ ■■ •' ■ r
(BW),Pi<. ( l™ i m.«SJ.Rnt a t i ™c™:i.V()t.bBl(»»5j
Best.-Nr. Tl 10 Diskette 26.- DM
Best.-Nr.TI10aKassette 20.-DM
Sonderpaket
60.- DM
80.- DM
SS^ESSSSiS
Best.-Hr. Tl 11 Diskette 26.- DM
Best.-Nr. Tl Ha Kassette 20.- DM
CPC
Best-Nr. CPC 10
15— DM
Best.-Nr. CPC 30
15— DM
.*-*(*». M-.iw.t-.
-»*-«»
Sonderpaket
Best-Nr. CPC 20
15— DM
_,„..,
35— DM
r™™™ CK-PROGRAMMSERVICE «
^H,^ c fa Mtf -w-W — *, » "' ** mum »-™Sk«™.
1111 Best-Nr. A 12 Diskette 25- DM
" X.™n"nii'"-m-.*-,- -,tj r.urT.i, t,.,,.,., i,ufa„ Best.-Nr. A 12a Kassette 20— DM
Best.-Nr. 6 10 Diskette 25.- DM
Best.-Nr. A 10a Kassette 20.- DM
:„'.;:. .v..;-,.;.-.:. h'.'i !.':'' '■■ i'V'"- Sonderpaket
"■"....:;;.V."i.^ ViV. : \ ,':"" : "■-■ ■■■■■-■ ■'-■•*■ "™ u ™™™ 10a,n """■"' A12 ' 45- dm
Best.-Nr. fill Diskette 25.- DM , li „ ll „ Dhv „„„ ,„ „„
Best.-Nr.AHaKossette 20-DM m£m23 60-DM
Commodore 64
n...Vi : '. i ■.!«- ■ sketta 20— DM
j***™ |i [iaaj. mairaHBlsj, Ha*™* Best-Nr.C llaKassette 16— DM
BesI.-Nr.C1 Diskette 25-DM „....„ »_,.,,—»_, h a w,niis5i h™i
BesL-Nr.C 2 Kassette 20.- DM ESSS^hCaiis)
HmJhdhwxsieo i."«i. u.-iv.,:ii- i»i. (ih. lsl . (4/S5i. r»nra Best.-Nr. C 12 Diskette 14— DM
| ill! . m... i- Best-NT. C 12a Kassette 10.-DM
Best.-Nr. C 10 Diskette 25.- DM
Best.-Nr. C 10a Kassette 20.- DM Sonderpaket
lOi.KSKJ.Clla.-dCll. M __ DM
Best.-Nr. D5SS Diskette 14- DM Dies ,ih™ p rar « mmc auiDKk™
Best.-Nr. K385 Kassette 10- DM toxet batten 65.- DM
Kassetten-
Software-Bestellschein
Sonderpakete
inHI " """""- t "° B, - p ™ g^S**
nwo
6B " lh ™""'
derpaketen und bei den Einzelkassctten
nnchmals reduziert. Wer hier das Son-
derpaket bestellt, bekommt im Ver-
SOWW'
- Cow*™
gleich zu den Einzelprcisen praktisch
<3S22-7S6
cine Kassette/Diskette umsonst.
Verwcnden Sie fur eine Bestellung den
Sof L w a re b e ste ! 1 sch e in vom CK-Pro-
grammscrvice und schreiben Sie als Be-
stellvermcrk z. B. Tl-Sonderpaket oder
Atari-Sonderpaket daraul'.
SB — ,£^1,__"
Computer Korrtakt 2/86
LESERFORUM
LESERFRAGEN ■
Automatische Dish
Error Anzelge
' Schreiben Sie uns,
wenn Sie Fragen haben
Atari-Leserfrage
COMPUTER-BUCHVERSANDjj
Das grofls Solelsbucl
,^.
BUCH-BESTELLKARTE
SCHNEIDER CPC h
Formula One - Der
Formel 1 Rennsimulator
b ™?T.»»»,.™.
Juggernaut
Die Schneider RS 232
Schnittstelle ist da!
CPC 464
Superstory
Ein deutsches
Grafik-Adventure
DM 19.80
Exklusiv bei
Computer Kontakt
Computer Kontakt 2/86 SCHNEIDER CPC
Forth-83 SsSISSr ' S '" TL'i
Spra- p asl jefc Prop-ammkiipra-
Von Diskette auf
Kassette kopieren
Fur CPC 464/664/6128
I,:,,!,-,,!.;-
K^|-i..i |']'iL'iL:rn?HL I'i':":l'!:i
hn h S " E " *
Das Listing fur
dieses Programm
beglnnt auf der
nachslen Scile
SCHNEIDER CPC
Hexloader
Basicprogramm
Computer Kcntakt 2/86
SCHNEIDER CPC
90O CALL. I.BC6E '«
340 ■ »*« PLAYER 'E MOVEMENT I«
-5:LOCnTE -,9:PEU 1IPRINT CHR« 1 2021 1 SOUN
D 2,1000, 10, 13:RETURH
390 LOCATE n,9:PEH 21PR1NT CHR»< 143) : X-*
-1O0 LOCATE >,9:PRINT CHR« 1203) : FOR 1-1 T
4EO LOCATE >,1-11PRIMT CMM 1 238 Ii SOUND 1
(2=22 ELSE IF *=20 THEN (3=22 ELSE [F <
Burgbelagening
Ss 'is" "„"' ™ tE -i — •«■*»
30 rem ituimnm tt*t***mti*******t**
140 ' ««• SPIELBEGINN '«»
500 WIND0U02, 1 ,10. 18.25: INK 1 , 1B1PAPERHZ
••CHR«1 1431 <CHR«f 143MCHH«< 143] • "
ATE Z,1Z:PRINT c*;SOUND 1,5*5,1
Computer Kontakt 1/
SCHNEIDER CPC 6<
Computer Kontakt 2/B6
SCHNEIDER CPC ss
1160 IF INKET«=" THEH 1160 ELSE RETURN
EHs^iSS'"""'""" - * r
3:PRINT CHR«(2001 ILOCATE Z5,f4;PRINT CHB
T CHB»(2B1I iSOUMD l,40O,lo:FDR 1-1 TD 14
T CHR*1231 1 :S0UND 1,300, 10JF0R 1-1 TO 14
1260 PEH 2:LQCATE I0,5>:PRINT CHR»IM31:L
OCATE 13,fl:PRtNT CHR«C 143J : LOCATE 20,9:p
DflAH 224,230,0: HOVE 1 16, z?z: DRAH 416,200
MC-Laufschrift
miisdxhrlt K.-ifeni,,'^: J;. Zur Er:i:..|uir. ? dur LWisrkL-ir
L h -erden BewuBtes
FOR i=l TO II): CALL BedingldurchdieBreiteder
&8il(lil.(s! 8 5(i):NEXT. z^j^n ha , ma „ „ j cr . ,, tl .
Assembler! isting
SCHNEIDER CPC
Data-Lader
S
g
sEs : l : l
Computer KontaM 2/86
SCHNEIDER CPC 57
Demo I
30 *=3:6-2iP0KE l*n
SO PEN 0"FOR i-t TO
th,&4B>PGKE loubyta.1.32 ' . .Sti-Biojdr. versandarr,.
r CHH*(1*71 :r. ■■ !i;HR»(133JlCHR»(30>|iINK 3V»
HCAU. l»uf,ea»(iHNEXTiPEN 1
bill* baliabigan Taxt elnlrager,
bitta balie&igen Teit eintr-agan
biMB baliabiger, Taxt ainfr-agan
Demo n
1 ■ falgand. Zellen
W mm i .Jwiu-fl....
iS3w~ ,ss
1 y mcigcizM
ACHTUNG
SCHNEIDER
FANS!
Ab sofort gibt's
noch mehr Tips, Tricks
und Infos fiir alle
CPC-User im
neuen ^
CPC ^Kl
MAGAZIN^Q^
*mr <g r 2
Das CPC-Magazin erscheint im
Verlag Ratz Eberle
Postfach 1640, 7518 Bretlen
oputar Kortakt 2/86
ATARI/C64 a
AXIS legt los
'7.ACHTSCHRAENKCHEN Vl)IB
GERABDROCKE VF.RtiLEI- (tei
flogabc drei Pritgfamme
-WK/.i. IJRMFT' eingeten,
jr%
7ugele S t. Dcr Spiel verlauf i
Null Grad Nmd
Kleinanzeigen
zum
Su perbilligprei s
ATARI/C64 59
Die NCE-Maus fur
C 64/128 und
Atari Computer
Com puter-Kontakt
das Heft mit den
preisgunstigen
Kleina nzelgen
Crnnpjlet Kgntakt S/8S
Liebe Atari-Leser
g^ SSaSMSS Der ATARI 520 ST
p M £di UVI Wei ^ cl Au ^ lI ' l ' :m " L-iidlk-.h ,Il ''" V i,: r ! l i !i M^'lkt & Ti.-dimk ""; , ' , . , ,-
DerATARI-DFU-Tip
ATMAS-II
ATM AS TOOLBOX
MONITOR XL b
a (DOS 2.5) rei- Butfcra rtgdcgr, in *
Basic-Disketten-Copy
Computet Kontahl 2JE6
Konkurrenz zum Atari-Schreiber
Zweimal Tex tveratbei lung fiir Atari-Computer ; Suiriexter und. Ateit
Computer KontaW 2/66
TelelbnOTZ 52/429 48
I iir Brief*':
Computer Kontakl
Posrfach 1640
7518 Bretttn
Computer K^ j
Business-Grafik Mr ATAM-Computer
fete f'ii'^'b/GRJiVk " S " !
r^i^l-
<;.- il ,.-,i 1 -™l:Ei n ,.mfeKio-
L-CTi ir=an
"■'■"•■■ S'-'J'-" 111 - <■■<• kilr -'
- "■ — ■"•"' ^ IiB , vls ^Aix^a^^B' Atari-Clubs
Computer Kontakt 2/S6
P£1£R'S
ASSEH6LEREEKE
80 Zeichen per Software
ri:40-Z C ich=n.Jup^]lh U
8B-ZEICHENK0KUERTER
iiMt:ii[ir[[ittei!::p:!F]:«-i^r'i«
S l rir, ! !BcMi.™raATASCIIin
Listing 1
REN • AUSBABE VON 60-1
110
GRAPHICS B*
4iSETC0L0S 2,B
IOiBETC
]LCR 1,0,0
COLOR
:PLO'
9 B
DRAHTO 31
14,186
■■ v
BtiDRfiWTD
5,5
no
PLOT 5
150iDRANT
314,150
IM
RESTOfi
100'
■ ■■■■
1-0 TO 7
190
lie
READ >
iPLD
•5*,
REN *ictit
A'USRI
536,ADRtA
),LEN(AI)
NEKT I
190
GOTO 1
REN *
REN i
Is D
*»,,
IM
REN i
< DATA BO, 20
64,80-ZEICl
NVERTER
1 DATS
0,40
IM,
uer ills
-Bit AT
as-
-Caaput
,Hi"
600XL/80C
LM30IE
S DATA
1 7K ,
RZEUGT BC
ZEICHEN
DISPLAY I
DEP.
GRA^
1KSTUFE B
040 DATA 16, 163,0, PETER'S
050 DATA B0,160,64,ASSENBLERECKE
060 DATA 192, 160, 128, IN COMPUTER KDNT
I746:READ DiPOKE A
"DATEN-FEHLER
,133,205,1
30020 FOR A-1536
,DiS-B+DlNE«T A
JOOIO IF 5025B16
1-19T0P
30090 RETURN
30100 DATA 104, 104, 133, 209,104, 133,208
,104,104,133,210,104,104,133
30110 DATA 214,169,0,133,211
33,213, 165,92, 133,216,165,91
30120 DATA 102,216,106,102,316,106,133
,212, 165, 212, 201, BO, 176, 103
30130 DATA 106,102,213,165,94,133,203,
165,93,133,204,160,0,132,207
30140 DATA 164,211,177,208,41,127,201,
96,176,11,201,32,176,4,9,64
30150 DATA 208,3,56,233,32,10,10,38,20
7,10,38,207,133,206,34,165,207
30160 DATA 109,244,3,133,207,163,8,160
,0,177,206,36,214,16,3,32,147
J017O DATA 6,32,191,6,36,214,80,3,32,1
91,4,230,206,202,208,230,310
50180 DATA 212,36,214, 16, 6, 36, 213, 4B, 4
,16,4,230,212,230,205,230,211
30190 DATA 198,210,208,147,96,133,215,
149,0,133,216,1M,3,1B5,1BJ
J0200 DATA 6,36,215,240,7,1S3,1B7,6,3,
214,133,216,136,16,239,165,216
30210 DATA 36,213,48,4,10,10,10,10,96,
1, 4, 16, 32, 1,2, 4, B, 72, 164, 205
30220 DATA 17,203,145,203,24,165,203,1
05,40,133,203,144,2,230,304,104,96
Listing 2
m^
ATARI jt
: BE
£|l^ ^Hw^S
■ Un r B ™t !u n,«„ II, H. .„.„.!.. HB.LP.i,,
!«~ ie,cn mEa tz .n n 3 „ ^ a ....
. l!irs;i%s.,
|p =:*:;:pr"" .
•- l!E: "? : r; : ;:'"': ^
"™" |iE';i's=Ii : -—
H IE Si"*"i:.";i„,
RAMclisk fur Kassette
CSIHlL Lillf»
STIKI ;1rj
-cr. rnuMah
n SCOOU bis In-'fF) I
Hen. Der RESET*
Listing 3
20
REH • Mini
P. FIN7.EL 19B4
as5ittE ;
S!
Din DKBO
.BOOTH
1534 TO
000) iREBTQRE 50
ISTiiSEflC DiPQKE
*,
iS-StDiNEKT Ai tL9
IF 504119 'HEN f
1536
■DATEN
FEHLER IN
ZE
73
DATA 10*,
0,11,152,
DATA 157,
3,104,157
DATA 132,
I STOP
62,49, 1
57,44,3
9,3,104
72,3,32
12,169
4,160,7,104,240,2
104
157,63,3,104,157,
B6.22S
0,133,213,96
11
1!
READ DIl
S-0:7 "•
EAD P:
F (*••»
THEN 200
200 7 I? "Bg.ot luf C»«»ltti .shr-ibert
I 210 OPEN #S,B,L2B,*Ci a
220 D*uSRIBL6,l,ADfl[B0DT*>,LN-l>
I 230 CLOSE 13
240 ? i? i? "FERT16!"
290 END
1000 DATA 0O0300071007A93CBQ02B32DFA07
lB40A96F8DE702850EA90a,200J
1010 DATA aDEBO:B50FA200BDlA03FOOAC95B
F01AEBEBEBD0F260A95B9D,3344
1020 DATA 1A03A9449D1B03A9079D1C03A900
9D1D034055O760O7B70776, 1774
1030 DATA 07520752074C5307A00160A900BD
SDOBBD5E0BA0014OBB4AO3, 17B5
1040 DATA 290BFOOCAD5D0BBD5F0BAD5E0B8D
600BAO01604BAC5D0BB4E0,2297
1050 DATA AD5E08484A4A6&6B29031D410BBS
E1C0F0D004C9FFF020AD01 ,2851
1060 DATA D329FEBD01D34SA00091EOAB01D3
0901BD01D3EE5DOB0003EE,302B
107C DATA 5E08AOO1404BA0A960AC5D08B4E0
AD5EOeCC3FOfiD005ED600B,26!l
10B0 DATA F02D4B4A4AAA4B29031D410BB5E1
ADO1D329FEBDO1D3A000B 1,2635
1090 DATA E04BAD01D30901BD01D3EESDOBDO
03EE5EOB4BA00160AOB640,26B7
1100 DATA 7BA9008DOEII4AD01D329FEBB01D3
A93E:BDFAFFBDFEFFA90BBD,3544
1110 DATA FBFF8DFFFFA200AD51D309018D01
D3BDOOE04BBDOOE14SBDOO,3227
1120 DATA E24BBD00E34BAD01D329FE8D01D3
6B9D00E3689D00E26B9D00 , 3055
1130 DATA E1689DOOEOEBDOCDAD010309018D
01D3A940BBOED43B604000,2951
1110 DATA 000000C0C4CflCCDBDEE4E9ECF0f4
FBFC,2908
1150 DATA i,0
Pascal auf dem ATARI
EKUB3)*PEEX(lB4)t256lE
oananaMakMn
ATARI n
Sprites auf dem Atari
.: :
n Oraptiis-a tin vitreikisir. Noirniil L = doppcllc Drcitc, 3
sis ? "«": msn ion i,::? •tyMa/fru '
:. JSGIHOL/B-Ellt
BgK-
1JZU ' "IBS 50LL iEtEIDEBl HEBtE« 7 "
B«« **"• "-'-
Player-Designer
Computer Kontakt 21
Der Atari 520 ST + und seine Software
Computer Kontakt 2/S6
ATARI 71
Cherry Harry
In Gartner Harrys U a nsri isi fcimpf drucluai. bis dieses (le-
i«'if tbopf twb sewn ;it " "
an L : w nrnathmfei Cta ;m- iim..-i v.i^cr jOgeri-Khl im.
1M tOSDB )7|ilf >■ men igsaj l*a
MO PBOI INCH USUI MM
-■s sicii iicsis. a!s ! lam k,.:m,-',! »c,m .k:r Spicier dk«i, Vor-
i"s*a s ™ Ica '- L ™ E " "H" «•**«•»
«^^^ a 3^ts rt;. schui ™ aiiK ' verschv ""-
iJjt^tTOSBfe,, «« «
iti-rssiiL-. .l.-i In m it ri ilc 11 Otic v ,„ Spi^lbe^nn kann dtr
ill *Y[?iI™i™™ttJrE ht««*i w*m *
nnd viele. viele Sliano. Spider mt SblFCT Harr „
Snbald Harry fi!u! Kirn-lstr. CwwhwjndLSkdi »»til;,i. Hicr
ncm unsichlbarer, irlu.i.iu.m- 'la' Sj>k-I dann begrmnen *cr-
!ai*CBLoi| H l%l" XT IfPLST «T*1 H-H
77a imp imioibetubb
U..C1, :,ul. .crpktzt stl-,:,!^: !■. I,„ll '^l'd,X:
SeT"fu" e d- ^'""^ A,ari 6U0 ^ mi ' Speicberei-
IN MtzliltniHM
IM SNIB ;,M,a,lS:S0U» I,L,L,L:C»L«
^n^ffcsamniolLh'sUsdu- Harry ej„ Platrr ;s -..™- si'., Ti-
ISO CKtH*l:IF CKHfl THEa CltLilEIU
Damil Harry das E.dwesen bfn **** ™ Display l.isi-Ir,-
t'ljmpri'liiper l-OLieikiiiiplii:.,1i '"' hl i<"-'li die 1 m-ch.-ilu.nszAi
i» colm uiiiut S^jiSSai 1 ""
4M CBCltlsIF CBIRBF1 THEa EI-L:BF.TUB
, ' ' ' | ' lTr, ddB d d ' Z^hl"n
iS &£&3l&%%,v lV tm m
yerftrbl cs sich and cm (is- '^.'"^ RAM k " i " en v " lrdcn
tZl'lUlvm Sw] ;LO«TE KFIIOI,VF*
muli jent wa.erhrn den Fcucr- Ha.lus LMtk,
Ms'SmIhH 0* CF1-11 1KB »a-IlltOT
Ma IF y()VF THE! PETUM
MI lHI=l-Z*<K<ltFJ:FO* 1=1 TO MiLOCME
;.. ":JI2tMll{:llli-mf,fil(E 514^1
■;■■■'■■'■ ■ ■- ■:
*«i cclc; ■ - (Friaam
SJ Mil ; PB^L : LB=I ! POP -Z*H
» f"="»-i. IOOPF-1:*
B=l:B=PFf: .,, ,j ■[
1*5 fl-f|-l:lf Fl=l THEB COSIIB 111
11* MM : .... ?liS tfci
IBH1M* i YilBT (SIB/ Ml : K= SC«- IB T 1 5CS/
lie usua Mtn m=i thfb i?«
«: s sisiu ::"!■:„ «. „.
Computer Klt-
U I HEN PW:PtPtlMt:l»;Li;
;.--.■: f ■ .
Zeichen-Zauberer
i'.OFEN B,i
;a poke S3,
11 OPEN II i
41 GRAPHICS liSDEllB 3I<
51 BSfEE(IBS]*25&*PEEi;iB>)
tl 6H-B5HI2 .
» DM i« SBFM6E OB NEU3TART »•
71 IF MKIUIIt-a M* I"
N KEINPEEMT«l-Wi*lflllTI«n/*)**
11 POKE T+2,t1ENiP0« 736.NEI1
lit SI
,5 bSl
29: POKE 17M,*H
131 POSITION 2,7i6D3UA ttl
1 IV!'? ■
DM 2,13:7 'iSUi.ihl I
(Llldtn iDlrginaJ ■
ill malum 2,m? "(BpiicH" mi"
irmhw I Kevin 1
HJ KH m RUMEN ItlCKNEK **'
lit PUKE Bi.HECLJP 2
211 PUT U.liJMNTO :2,R:IWA»Ta 21,1
ATARI
ai msme J,'sM««n 3,biC0lcr i
111 PICT !7,ll0R«NT0 Jl.liWBHO 14,'
251 KMTD 27,11 [flf*Tt 77,1
255 tun i mBCHiKNFmsnuin leben •
24IREBT0RE iFQRN-lSJUD 15H
!7I REM AiPQKE H,*iNEIT N
275 RE" ' WirPTBWllIHE tTlCKMFMBE *
211 LOCATE 5,! ,F iC-f
271 COLOR liPLDT S,HCOLDR 3iPL0T S*l,
III IFFEBKnSlOJ T«E* Ml
121 COLOR FlPLDT S.llPLOT 5*1,1
111 1010 711
141 IP 3TRI0IIM THEN 111
!H IF STRUM)
I 318
UtC'CtlilF C« THEN CI
171 OR itl BDSU6 711,731,731,771
HI [CLOP £
3*1 PLOT S.ZiPLOT 1*1,1
til plot is-ii! IM,1
411 IF fl-15 MS IK
121 I-I-IH'l'i
431 I-MB'IH
III SiS-1fi*l!)t2
451 S=a+(WH2
til If 5> 12 THEN Wl
171 IF 3-22 THEN- 3-14
tOI IF 1"! THEN 1-1
191 IF Z-? THEN !-l
SH IFSTIKIDOISTHENSH
5ii sotd 2Bi
515 REM HI DLT-ftENMSUMB Ml
521 W.I'PE£MJMH2SitPEEH54H
SI* POfi 011*1,71
541 for Mi ra u
551 POKE 1L1+M
561 NEXT N
571 FOR «■
IE DLI*t),l
121 RETURN
425 BEN •« lEIEHENBATI IN Mil »«
411 FOR N-t TO 1121
1,41 FO*E HEHi25i.N,PE£Il224i!54.Nl
451 SOUND I.H/1,11,5
Ul NE11 N
ill RETURN
675 REN * lElMENMT! WF SEH1RH *
6JB POKE 734, NEB: FOB NM TO 127
(41 PUT ll,27lPUT II.NiHEIT N
;h bet urn
7t5 HEN IN RECHTES FENSTER PLOTTER
711 COLOR liPLDT 3*11,1
721 PLOT St)3,(iB!lUP,«
731 COLDS llFLOT S>I4,Z
1241 If (C14 THEN C0-C0tl
la colds Sjpldt bus, IiBETURN
1291 IP R-II 1«EN CD-CO-!
?51 COLOR ?cPLQI 5*14, Z
1268 IF R-7 THEN H=H.7
III COLOR BjFLDT E+15, li S-E7JRN
I2TI IF Ml THEN H-H-2
771 COLOR IiPLOT Wt, I
1281 IF COi-1 THEN CO-13
?B* PLOT St]5,iifl£TU!M
1291 IF CD-I* THEN CC-8
7B3 S£H m TSlTBlURMFfljlSE m
I3N IP Nil THEN H-ll
"91 8E1 «,T
1311 IF H»I4 THEN Hp|
B» IF t't; THEN 00311! 91i
1321 IF B11WIB10I5 THEN |]»
911 IF T*65 TNEN BOSJB 1171
1331 SETCDlOR T,ca,H
lit IF 1«7I THEN 6DSUB 1111
1341 SOTO 1171
931 IF T-8J DD T-T4 THEN BOSUB 135*
I3<3 DEN !•• LnSE/EAVE -ROUTINE HI
HI IF 1-115 THEN B09US 1341
1331 TRAP 1321
858 IF 1.73 THE It SOS Of, 1581
1 Til POKE B7,||P0BI1IDN 2,22
Bil IF 1=71 THEN BOSJB 1621
1371 7lt|-DltlifllMI '
IW IF PEEK 17331 >3 THEN B9B
13BI POSITION 13, IlsPOtE 87,1
HI SOTO 781
1391 INPUT PHI
115 REN 1 AU8NAHL E1NES 7S1CHENE i
H18 IF LENIFMHi INEN 181)
»» poke n.panimnn
1411 IF FNII2,2>OV THEN lOil
121 IF 81813181=1 THEN IHI
1421 CND't
931 NB-AN-PTRIBI8I-PTHIBI1I
1411 IF 1=83 THEN CND-B
t4l IF KIOBSH21 1HEJI Nl-B5t281
1441 BOSUB 1048
131 IF H«-!S+2Bi THEN WCIBH22
1431 CLOSE 13: OPEN I3,[HD,I,FM
941 POKE AN, PEEK ! Ml- 1 2B
1448 POKE B91,I2B
971 POKE !S<W,PEEKiANi
1471 POKE 8B4.li POKE B83,HEN
9BIPKE HH,PEEKlMH»*12SlAU>UH
1481 PBtE BBS, liROKE BB9.4
991 SOTO 921
1491 NE-USRI1534,CM«)
993 BED hi ZEICHEH MRSTELLEH m
I3N CLOSE 1!
1MB ST-PEEKM)
1311 RETURN
llll IF 51)127 THEN KT-ST-1 »l POKE AN,
1313 REH in TON BEI FEHLEK hi
BT
1321 SOUHJO «,H.4,BiFG« P-l TO 31
it» for ni id ;
1531 HEII Pi BOUND 1,1,1,118010 1331
1535 REH ill FENSTER LDESCHEN m
1541 FOR Ml TO 7
1141 NEIT N
1551 POKE 88-11. Nul, 8
1151 BOSUB 17B8
1561 NEJ1 N
JIM 6010 291
137IB0BUI I7BB<R£TIMH
1113 REM til ZEECHEM UEEE3JRA6EN III
1173 REH '•• FENS1ES 1NVESTIEREK III
ii7i m 14 to ;
1301 FC* N-l TO 1
1IEI POKE INEMI25itN*5J18!,PEEniltBSt
1591 POKE BBtniNf|l,23!-PEEi;iBStH>Ni
IIW)
II)
nil heii n
llll HEtl N
1411 B0SU! ITBIiRETURN
1115 RED III FARBEN UERAENDERH III
1415 REH ii DBS 1NALJEI CHEN LESEN H
llll POKE 17,1
1121 FOR N-l TO 7
im P031TIDN ;,;;,; iti'Firingiitir
1431 POKE BBtlltNi||,PEEK(6TiB*224i234
1131 BET 0,1141 HIB DR 1)32 THEN 113
1641 NEXT N
1(58 608 OB I7BH RE TURN
1KI W-WilF W THE* 1131
I7BI FDR N.l TO 7
JIM NE'TBBHlFWEEKIRE)
1818 F8R N-8 TO 3
IB1I LOCATE 4tN, UN, m COLOR 1
1171 POSITION 7,22(7 H| 'Fir trig) ittr
1B21 a.l4t»i2il-NUlPLBT B,2
1831 PLOS 13iHi2,N-liOH Ntl BOSUB 718,
HE* PRINT lijlj 1 : ■ jCDp ' , J jH{" '
738,751,171
1S4B HEIT N:NE 11 «
1S5B REIORN
llll IF BTRIGID-I THEN 1211
IB55 REH ii T JITS IRE I FEN LDESCHEN ••
1221 BOS 08 IBeJiREIUM
1238 IF fi-15 1HEH [191
1B4BP0KE B7,HP0aiTI0N 2,22
Computer Kontaktg/B6
1981 PDtE B7,3sRETUnH
[96S REN I DATEN FUtR HS-PROSftMH t
IB'l DATA 114, 211,1,218, II, HI, 1B4
I4N DATA 141, lit,!, 142,48, 32, Bi
Itll DATA I!B, 133,213, 149,1, 133
19!) DATA 212,94, «
itlf BED I lElCHCN-JauKSER Cy 7164 •
2t» REK t il l! II j t fWim i H I MM1 II
Sound-Demo fiir Ihrcn Atari
2*1 POKE 537A3 T lM*LiiL2=L2-2»
.5*(L!>I AMI DIH.'SEI KfWSJE
plniu
311 IF PEEKI2BX4THEN 311
371 ME1T liSOTO 158
m rem ms
4 1 8A55=Y: !IEL I = 1 4 1 BCHL A67 °t> MEL 2=9 1
I4SS-IE12 IHISS 1H«' K« MfM I"
H HE J tit 1* fffMlTEH
A6Z,J4>,[4IMEL2,I1I
,213,1,243,1
EtFM H-l ID ii:Bl[» l lll'fiB2ll,NI-»:
1111 DATA 315,1.1
3ll,Ml-a:14(I,HI^:KEn 11
345, (,122, 1,215,1
71 FDR N=l TB WHiFM 11=1 TO 1"
1151 DATA 57,1.1,
111 READ HHiMI-lsNEHfclEIT R
141 READ i:e;ik,hi
BIB: BOTH 1BI
191 FDR 14=1 1
m if
=JKB=l>«l(ll?l]iPa(E537M,Z4iIF
THEUPKE 537 1], 1 13
225 IF MX ANfi 24(16 ADD D>3 THEI
2;PB<£ 33761,3: POKE 5374 1,H
2J1 IF 1111 TBENPME S3TW,l!lJ=l
E S37M,!1
241 IF 12>l THEN L2-B:Pf)tE 51712,
SKS
,,,,,.,,».
.,„,
i«,
1411 DA
»»;„,
IB
:;?.
HIi'mT*
91 1 B 1 61 1
57 1
™
,41,1,74
liSl D
...
1231 DATA
6,8.1
: 537*;, a
'B PUKE 53741, l!S*Uil]4>l TJB 61
1-ILI16 AND B>ll;RER lEUJIi 2
'5™tt5J7i7,isBi;;j:>;:n:9.i72
,.I.6B,B,6»,d8,
127* DATS 51,41
128B DATA 51,57
^.l™ 7 ';'.,
,41
,»,
Computer Kontakt 2/8B
ATARI 7 9
21MDATA 1,8,1,.
23M DATA 1,4,4,2
2511 DATA 7,11,4,2
2741 1ATA 1,4,2,7
2751 DATA 2,5,1,9
2321 DATA 1,1,1,6
2521 BATA 5,11.2,2
233* DATA 2,1,1,1
253* DATA *, 11,3,1
2161 IfiTfl 1,1,1,7
2171 DATA 2,2,3,5
!3'l DATA 2,13,1,1
2311 DAT* 2,2,3,2
2421 DATA 7,9,1,2
2171 DATA 1,11,5,5
23M DATA 4,1,1,4
2431 DAJA 8,9,5,2
2831 DATA 4,11,5,5
2411 DATA 1,1,2,4
2841 DATA 1,1,2,7
II1I DATA 2,2,;,! '
24IB DATA 2,2,3,1
2458 MIS 1,8,3,!
265* DATA 2,2,1,9
2221 1MB J, J, 1,2
211* DATA 7,9,1,2
2231 DATA 4,11,5,5
2441 DATA 1,1,2,7
248tOAJA 7,9,4,2
2381 MA 9,1,1,3
J35I DATA 2,5,1,2
2451 DATA 2,2,3,2
2i!lBATA 7,11,4,2
2B9I DATA 1,1,1,1
2261 DATA 1,1,1,2
2271 DATA 1,7,5,5
2721 DATA 3,6,1,2
2291 DAT! 2,5,1,2
2491 DATA 4,11,3,2
2731 DATA 4,7,5,3
ATAHI-Lcscrforum
i ann Funkiton LKITS(iSji) ti«i
♦+++♦++++++♦+♦++♦++■
HIEI! 1ST SIE:
IIIE SIM-ER-
ATARI
I
♦♦♦ ♦ ♦♦♦■*♦»♦♦»»♦ 4 ♦♦'»
FIIEI! IIHIEK
flttl! EINE 45AXKE IflSC
VIIIUI! IlffiKTISEMICHElf
nmiminii m raws-
mmsmmmm
FUEl! SIN! Mi 29.- PR
SCBECI! IIIIEI! M lltll
WMM 1MIHM1)
iilEil 17, iiliili SBLiillE!!!!
TI99/4A so
Liebe TI-Frcunde!
Disketten Manager und
Basic Debugger fur
Extended Basic
Neue Moglichkeiten mit
Mode Control 2
SSSSSSSS^i 99,- dm
Assembierkurs 2 + 3
_J
TI99/4A
CALL CLEAR :: CALL SCREEN(2)r: CALL HASNIFYC4): : RANDOMIZE
FOR 1-48 TD 57 :: READ At :: CALL CHAR(I,A*>:: NEXT I
FDR 1=65 TO B6 :: READ A* :: CALL CHARCI.A*):: NEXT I
o call char<ii2, " ooooooooo so 7 or.?: ■:■!■:■< .-7.j:x>ooooooooooooooocoeofofofofoeoc'')
utao, ■00402000 0a i ■ .■•■■ .9400000020400102040000000201008040
L CHAR(12B,' , 000003OFtF3F3B3D3DlF0F132C]202070000aC0F0FBFCBCBCBCFBFOCBO404O
. CHAR(132, "O71F3F7FF1F1F1FF7F7F3F0F0F0FOFO3EOFBFCFE8F8F8FFFFEFEFCF0F0F0F
190 CALL CHARC136, "Q30D1B1B1F3FFFFFFF7F7B7D3E0703OOCOF0FBFBFCFEBFDFFFFEFCFCFCFBF
200 FOR 1=0
210 FOR 1=3
220 DISPLAY
DISPLAY AT<24,2)
,INT(RND*32)-t-l,42)::
:: CALL HCHAR(INT<RND*20;
:: CALL C0L0RU,5,l);i NEXT I :: CALL C0L0R(2, 11, 1,
TI LANDER" :; DISPLAY AT(14,3) : "PRES-
ATED BQ RODERICK KOEHLE
NEXT I
2,13,1)
TO BEGIN'
230 CALL HCHAR(22, 1,127,64);; CALL SPRITE (#1, 128, 5,1
240 CALL K£Y(0,K,S):: IF SOI THEN 240
250 CALL HCHAR<10,1,32,32):: CALL HCHARU4, 1,32,32): :
2G0 CALL MAGNIFYI3):: DISPLAY AT(24,2):"SCORE:0000 FUEL;50 SHIPS:3"
SC=0 ;: SH-3 :: A=l :: AU-5
CALL DELSPRITE(ALL):: FOR 1= : .-...:..: .-N, :■;.;.;;; Fi:.i*>:
290 CALL SPRITE<4t3*I-fJ+i,136,INTCRND*13)+3,32*I+20*rNT(RNDtl7>,!J-l)*(
T ( RND* (256/A-20) ) , 0, AV*V )
300 NEXT J :: NEXT I
3i0 C=0 :: F=50 :: V,«-0 :: CALL SFRITE<tll, 12B, 5, 1, 120,0,0)
320 U-U-.1 ;; CALL M0TI0N(*1, V, W): ; CALL COINC(ALL,C
■ COO OR F=0 OR V;i52 AND Y<240 THEN 350
!30 CALL KEY(0,K,S):; IF S=0 THEN 320 ELSE W=»MK=65)-(K=13); ; F=F-1 :
»TC24,1B)SIZE(2);STR*CF):: IF K=32 THEN V=V-2 :: CALL SDUND(-200,-7, IS
340 GOTO 320
350 CALL M0TIDN(#1,0,0)
360 IF COO THEN A*= "COLLISION JITH ASTEROID" :: GOSUB 460 :: SDTO 2BC
3/u It r=u mtii wj
300 IF ¥>200 THEN A*="GUT OF SCREEN" II 6GSUB 500 :: GOTO 2B0
290 IF Y»ABSiW)>4 THEN A*="CRASH JITH GROUND" :: SOSUB 460 :: SOTO 2£
400 B^30-»A*AV*F-V-AB5(W):: AS="BQNUS: »&STR*<10*INTCB/1<»>I." POINTS"
IF SC<I0O00 THEN DISP
>=AV*2
410 FOR 1=1 TO B/10 :: CALL SOUND! 100, 300, 5) ! : SOSC+
LAV ATI24,S)SIZE<4>:RPTS<' , 0",4-LEN(STRS<SC))H.ST1rt(SC)
420 NEXT I :: CALL DELSPRITE(ALL): : A=A+1 :: IF A>3 THEN A=l
430 FOR 1=0 TO 20 :: CALL SOUND (-100, 500, I) : : NEXT I :: SOTO iou
440 F=50 :: A*='NO FUEL" :: GGSUB 510
450 V=V+1 :. CALL MOTION(*1,U,W):: CALL CQHCfAU-.O 1 1 CALL POSITIONi*l,Y,X
F C=-l OR ¥>153 AND V<240 THEN 350 ELSE 450
460 CALL COLSft«i,T)n CALL PATTERN C*l, 1121 I I CALL SOUND <- 100, -5,1) . : FOR I
470 CALL PATTERN(H1,11&>:: CALL SOUND (-500, -6,0):: FOR
4S0 CALL PATTERNi!tl,ll2>:: CALL SOUND! -500, -7,0): t FOR
430 CALL PATTERNS, 120):: CALL S0UND(-300,-5, 10)! i FOF
CALL DELSPRITEC#1>
500 SH-SH-1 !i DISPLAY AT(24,27>BEEP:STR*(SH)
510 X=l4-LENCA«)/2 :: FOR 1=0 TO 3 :
,400,0):: DISPLAY AT<10,X):At :: FOR J^O TO 1
32):: CALL K£Y(0,K,S): : IF S THEN 530
520 NEXT I
530 IF SH THEN RETURN
540 DISPLAY AT(10,9)i"GAHE OVER" :: DISPLAY A
560 DATA 00FEB&BA92A2C2FE,0Q18GB0G0a0B0aiC,OOFEO2O2FECOC0FE,0QFC0404FE0606FE
-.£,OOFE80aOFEO£06FE,0080S080FEC2C2FE,OOFCQ4040&060&06
'E, 00FCB484FE06O6O&
■■■.:/. ■ ■■;■■: ■..:.■■
£,OOFEBOB0FEC0COCO,OOFE6OS0C6C2C2FE,00a2B2B2FEC2C2C2
8,O0929292D2D2D2FE,OOB888BSFEC2C2C2,00a08QBOC0C0C0FE
2,ooFEG2S2C2c::C"i:;,i::CFEf;rR!': L JS2G2FF,0'iFEs:.:.,-:' ■
a,00FCB4G4FEC2i:2C2,0OFEB2B0FEO£8SFE,0OFE10IO18181BlB
F,o.xi!:;':n:e44447C
=0 TO 30 : : NEXT I
-0 TO 10 :: NEXT I
1=0 TO 100 :: NEXT I :
G PLAQ (
590 DATS
A 007C4444FEG2B2FE
., 007C4444FEC2C2C2
A OOFEBOaOFECOCOFE
A 0010101018181818
£20 DATA 00FE9292D2D20202
630 DATA 0O4242427E1B1810
640 DA
Tl-Club Baunatal
Computer-Kontakt
das Heft mit den
preisgunstigen
Kleinanzeigen
Neue Preiae
Tl 99/4A
TI-Assembler-
Software
kursll
ftugsimulator 11J2EK
h£* is'bobm
^jjWttluCKi .
Powersoft
F1 ., l .|,-„...., 1 SL c (u.,ioo
41 7B Kerala*
"**■
Malen mit dem TI
Fur den TI 99/4A mit Extended Basic
Co mputer- Konta kt
das Heft mit den
preisgiinstigen
Kleinanzeigen
TI-Paint
100 ! TI PAINT
110 ! TI-99MA EXT. BASIC
120 ! PATRICK SCHHITZ
130 I AH ZEHNTHDF 4
140 ! 5480 REM. -UNKEL BACH
150 CALL CLEAR :: CALL SCREENC1&)
160 FOR Z-t TO 14 :: CALL C0L0R<Z,5,1>:: NEXT Z
170 ! TITELBILD
ISO DISPLAY AT(1, !):"** TI PAINT **': : :"l-RuT"l :"2-SRU£N": : "3 - B
"4 - GELS": :"5 - SCHWARZ": : "S - WEISS (LOESCHENI"
190 DISPLAY AT<17,1):"N - NEUES BILD"; :"E - ENDE C - CURSOR AN/ 1 ALPS"
200 DISPLAY ATC24.1):"[RS£NDE[NE TASTE DRUECKEN. " :: CALL KEY(0,K,S>
210 IF S=0-THEN 200 EL5E CALL SOUND(-!OG,BB0,5,BB2,9>
220 ! VORBEREITUNSEN
230 CALL CLEAf? :: FOR Z=96 TO 136 STEP B ;: CALL CHARtZ,
240 NEXT Z :: CALL C0L0RO.9, 1, 10,4, 1, 11,5, 1, 12, 12, 1, 13,2, 1
250 CALL SOUND£-110,440,4,442,B): : CALL COLOS/fl, B, ! j ; ; 1;U=1
260 CALL CHAR(42,'TFFFFFFFFFFFFFFF - )
C0DE=96
AND ZE+X
2,70 CALL HCHAR(l,3,96l!: ZE-1 :: SP=3 :
280 ! CURSOR - BEUEGUNG
290 CALL JOYSTCl.V,*)!! X-X/-4 :: Y=Y/4
•mrm then ze=ze+x ■.-. sp-sp+y
300 ! CURSOR AN/AUS
310 CALL KEYfO,K,S]
J=l THEN CU=0 ELSE
320 i NEUES BILD ?
330 CALL KEYtO.K.S):: IF K=7f
230 ELSE IF K=69 OP K=101 THS
340 IF CU THEN CALL GCHARIIE,
350 I FARBE AENDERN
3E0 CALL i;EY<0,K,K;:: if SOu THEN IF II>48 AND KC55 THEN CODE
_ SQllNDr-20,220+[k-4Bi-t20,5J : : CALL HCHAR(ZE,SP,CODEJ
IS: f>110 THEN CALL SOUND f-1 00, 110, 5, 1 12, B) : :
CALL SOUND(-100, I 10, 5J i : CALL CLEAR :i END
■,Ali! CALL HCHARtZE,SP T 42»:: CALL HCHASiZE, S
! ZEIC
) CALL J
DP ZFtX-24 OF SP+Y-:3
: SP=SP*Y
?«ZE,SP,CDDE):: GOTO 2
J +Y>30 OR X=0 AND Y
TI99/4A
Polargrafik mit dem TI
chEtttndcdBaskSirlchgri.fi
CALL LOAD(-31fiSfi
il ist in Assembler gesthrie
£EIHS
anm, dai die vicMUtigen den Aufnile vnr.
isgabcroagllchkeiten tfigen CALL L |NK ("NULL".
II.DiescnI'rograminteilkann y) siellt den Nullpunkl Kir a
m Uheischrertien, umeigenc f |g C ndeiiAu[ruIeein.Xuilc
Thk Wenn d»s Proerfimm bei Y „. iat i ien Ound 191 licgen [L() ^ A ^J;
■ ■ ■ ■■ ■ ■ ■ ■■ . ., .-.. ■ ■ .. : ,■ .'
Tcxlau.gabcn mosiiUi. Ja:,.v ^ V| , t[f J[n A](hB „ |— , „.,„,
abcr eiflBerc Crafikcn. eincrl.inie.dcn Mitteipunkt ei-
VordeniLadMidHPiogrmi- »« Kxases und den NuJlpunkt Rei Me
[lonv -Willi
Polargrafik
*C2rj2il27i:l-4l4E4E,
414E4727E&49414E4£.412027F24D4F4455532027A£4C494E4945202aFB
1370 DATA 494C494E49452912415353454D20A0A4
1980 DATA 24F42AE7
1990 data oiDOOOOOOOOSiooo2S4AooBooc 7 0'.'.iDOErjooaoa'so3i2f.Ff J i"jM["ii']; , s'-;, , -.: , 8Ctiiuoo80Boao
8oaos'">Bi"isooij7D:n:'pf «,•<"■>-,■' .>A>,";n."-ao.-OE.- v,ui-ff9;':'_offfd
2000 DATA 0010000J0r-»X"i25Br_255;29BBBrV>OF''. . i . MHI.I4020100B040201 00000004 F0
0FFFFFG0050G3 1 iXT .... . ,-«,(><,<K>
1 00004000CFF 01 042020201 002DB
102590020G08O0020 1 F 1 00020200
32BB0225 1 CI 60 2C0A025 1 E06C2DA
X"J5B2
4-5F F FB0246FFF B E B 052528&B0525
S010FA
$20202000804 20202CC08906C288
3B 1 30A9089 1 6 F BQ9B2 D8&2A 1 OOA 1
1 40202000B042O2 2C 04 C2BBA225
1 202020008042020 240 EC 9DA&AA0
Tl 99/4 A™
GotnpLitaT Kofflakt 2/S6
™ D«T«BO<J0100100™2EOB3E01,4 5 BCB0525S8:I»S252»0«00<C|<«B1C.4B0420200««»20
iiu^r^^ST' 1a£ „.3 6ia „ 5BSl ».2.,
*ffSfS ^^zMB.^BBoa
: ■.. :■■■■■■■ ' '' "" ;l1 451004
21B0 DATA 04C5ClE0255BC247"743:::;:ft023;.ii04CB04C80380
"""J 5 j , , aaTO2KaJ2 „ 2= 5Bl M5 C»7B0 2S SB03B0C2B..S<»02
B„ tt .,,B C «~ 0C25.0C0.CCO
.■..■■■■.:„,:.::,..,,■■■..
n^o2A5S2B«.x,04;.^a-t;292EM»o^4^^^^^^^^^ 1!|Ma2
. „:150225FFFCBB05B3B011
E4M, ^^°'^^SD27B0^^^^
22B0 DATA 16376,16383
2290 DATA 80,76, 75, £5, 68,32, 160,0
2300 DATA -24576,-24441
2310 DATA 2, 224, 160, 136, 2, 4, 0,3, I'M, K, 131, 5o 6 ,
232r, DATA t.,lf.0,1W,P
2330 DATA 6, If L
IS data J ?J - !~ '-"Ju^c.i.*:-.-^*,™''
Computer Kurrtakt 2/86
SliiL-k ui.l lisiigcin :
Bierborse
E r Spider (m M i
liii-mi.M-Wl. Ik.
IJahe ' Joystick nun auf'jttkn Kurs k*pfi. Deckel mil H (Hopfet)]
5 REM *BIERB0ERSE*V0N RICHARD BRANCO JUN.
10 CALL CLEAR ;: CALL SCP££N<4>:: CALL CHAR(9ti"©0Wa442"T4224"): : CALL CHAR(97,
"E666667E7E666666")
15 DIM Pf4),N»t4),B(4,4),KU,5>,Ma,8>:: RANDOMIZE
20 RESTORE 25 :: FOR 1=0 TO 1 :: FOR X-0 TO 8 i: READ V :: M<I,X)=Y :: NEXT X 1:
NEXT I
25 DATA 33,29,93,54,95,99, 100,101,102,103, 106,107,100, 109, 110, 111,127, 12B
30 CALL Dl :: CALL KRUESERL(4, 13) : : CALL SI :: RESTORE 35 : : FOR 1-14 TO 22 : : B
EAD C* :; DISPLAY ATU, 4>:C4 :: NEXT 1
35 DATA " BIEPBOERS E% , ■ HOPFEN UND MALZ"," GOTT ERHALTS",,,"
FUER 1C4 SPIELER", ,ANZAHL DER SPIELER [
40 ACCEFT AT(22,261SIZE(1)VALIDATE("1234"):CS :: A=VAL(C*>n CALL P
45 CALL CLEAR :: FOR 1=2 TO 23 STEP 7 ;: CALL KRUESERL t 1 , I J : : NEXT I
50 DISPLAY AT«1,7):"NAMEN DER SPIELER" :: FOR 1 = 1 TO A :: DISPLAY AT(I*2+12,6):
"SPIELER ";Ij" [ " :: ACCEPT ATU*2+12,21 )SIZEC-5)VALIDATE(UALPHA>:N*( I>: : NEXT
55 DISPLAY AT<23,5):"PUNKTELIMIT [■' ig ACCEPT AT(23,21 ) VALIDATE CDIGITJSIIE(2! :L
I
60 REM ***KURS£RMITTLUNG**t
65 CALL P :: CALL CLEAR :: CALL D2 i: DISPLAY AT(1, 15); 'K U R S E»
70 RESTORE SO :: FDR x=13 TO 22 STEP 9 :: FDR Y=3 TO 7 : : Z=INT(RND*3>+1 :: FOR
1=1 TO Z
75 READ C* :: NEXT I :: DISPLAY ATCY, X) :LEING '■#####•#": C* :: FDR 1-1 TO (3-Z)::
READ C% :: NEXT I :: NEXT Y :: NEXT X
BO DATA !l'h,h[" r S[h:,hC: 'e,.t*:e, hC..', #[..],[ [Bh.. e.Ih', '[.:eh;: 'Cfih@,ee[h: ',
.:Eiih',.. 'am, 1 1. cm
85 D
. ,th«"
•C. 3:11,1"
<Zh:
,hce@',.:he:,
90 FQR [-1 TQ A :: DISPLAY ATI 19, I*7-A*4+ll ): USING
,I*7-A*4*-12):USING "WiPtlHi NEXT I
35 R=0 :i FQR Y=0 TO 1 :: CALL PRCY):: CALL EPRtY.h
0,10>:"RUNDE[ LIMITCjLI
100 R=R*I i: DISPLAY AT(10,1&)SIZE(3>:USING "BtMT.R
NDi-S0,770,XI:: NEXT 1!
.., 'h[.:9,ht.. 'e,:thhee,
#":N*<I)n DISPLAY AT(24
I NEXT Y i: DISPLAY AT(1
DR X=l TO 30 :: CALL SOU
5 FOR I
TO *
: V-0
Kill
X :: CALL F
] 125,130,125,130
1 Zljij"
109
110 RESTORE 115 :: DISPLAY AT(i;
STEP 2 ;: CALL S0UND<-50, 523,1
115 DATA - TAUSCHEN,,- WUERFELN
120 CALL SPRITElttl,40,7,X,98)::
125 D=l :: SOTO 135
130 D=2
135 CALL JOYST(D,Y,Z):: CALL KE'
140 IF COO THEN CALL 33 : : IF 1
ELSE X-109
145 SOTO 1M
150 REM **TAUSCHEN
155 RESTORE 1E0 :: CALL PRINT tl 5=1 :: GOTO 1B0
160 DATA WAHL DES KURSE5, .JOYSTICK BEWEGEN
165 CALL SPRITE<#1,40,16,Y,X>:: CALL JOYSTlD,C,Z>:
HEN 163
170 IF E<X> THEN CALL S3 :: SOTO 195 ELSE IF ZOO
ELSE 5=1
175 RESTORE 105
ISO READ X,Y :: GOTO 165
165 DATA 113, 20, 137, 20,113, 2S, 145,28,113, 36, 145, 36, 113,44, 153, +4
190 DATA 185,20, 210, 20, 165,28,218,28, 135,36, 218, 36, 185,44,226, 44
195 OX/B+1 :i CALL SCHAR(Y/8,C*1,Z>: : IF 2=32 THEN S=-l ELSE 5=
200 CALL GCHAR<Y/8,C,Z):: IF Z-3I OR 2=32 THEN GOSUB 220 :: SOTO
203 RESTORE 605 :: FOR T=C TO 4 :j READ X :: IF X=Z THEN 215
210 N
t TO 3
Y(D,C,E):: IF Z+E-0 T
THEN S'S<-1 :: 60T0 IE
215 IF B(I,T
J B<I,T)=B(I,T!-1 :
;■ i30TO 200 ELBE E=- S :
250
235 RESTORE 265 :: CALL PRINT
260 CALL KEY<D,Y,C):: I
265 DATA "",■ '"#",
270 F=INT(RND*6);: ON I
275 X=2 :: C*="SCHHAR1
THEN 260
*7. DRUECKEN"
OTO 275,280, 2B5, 290, 295, 300
305
; BOTO 305
285- X«3 i : C*="BLAU" : : GOTO 305
290 X-7 I! C*="ROT" :: GOTO 305
295 X=15 :: C*="6RAU " :: GOTO 305
300 X=ll :: C*="GQLD"
305 FOR Y=l TO RND*5+1 " CALL SOUND(50,-6,7)
310 RESTORE 315 :: FOR C=l 10 4:: READ V,I :
C :: DISPLAY AT(16, 19JSI2E(9) :C*
315 DATA 113,129,113,137,121,129,121,137
: CALL DELSPRITEf*
320 CALL S3 .-j CALL P li FOR J
THEN 355
325 RESTORE 330 ; : CALL PRINT : : CALL P : : x=0 ■ ■ GOTO 345
330 DATA FARBWAHL, ,
335 CALL JOYST(D,Y,ZJ:: CALL KEY(D,Y,C):: IF Z+C=0 THEN 335
ifVo m»5n«M& uraa Wm ^ ELSE IF z>0 mD * >0 THEN * =x ~' ^
)?C* fi " T aof 35 ° ^ ™ ** TD r " M REA ° " !! NEXT V "' D1SPL ^ *T(l£,lI)SIIEtl7
350 DATA 9 SCHWARZ,' BRUEN.h BLAU, : ROT.. SRAU
355 B(I,F)-B(t,F)+l
360 Y=0 ; : FOP X=0 TO 4 : i Y-Y'
3£5 Y=[NTCRND*5>:: IF B(I,Y>>0
370 C*="" ;: RESTORE 375 :; FOI. .. ,
375 DATA §,\h,i,, -".««. r.c«u »
330 IF Y>0 THEN y»Y-l M C*=C«,Bt !: GOTO 3B0
3B5 NEXT X :: Y*LEN<C*):: C*=C*S,RPT* < '■ ", 10-Y1: : A»=SEG#(C* 1 5) ■ - B*=SEa*(C* 6
S):i DISPLAY AT<21, I*7-A*4+l 1>SIZE(6) -A* otu»il.*, l,3J. . B»SES*(C*,£,
350 DISPLAT AT(22,I*7-A*4+11>SIZE(6> ; B* :: IF y=i THEN 475
H ^C'Rt 400. :: CALL PRINT :: X=109 f, S=-l
400 DATA - NICHTS KAUFEN,- KARTE 1 KAUFEN - KARTE 2 KAIJFEN
405 CALL 5PRiTE«l,40,7,X,9G) :; CALL JOYST<0,Y,'z)<: CALL KEY(D,Y,C>:: IF Z + C=0 1
410 IF COO THEN CALL S3 :: SOTO 420 ELSE IF X<125 THEN X=X+B :: S=5+l ELSE X=1C
415 GOTO 405
420 IF S--1 THEN 510 ELSE C=4
•-S,C,I> ;: if Z=32 THEN RESTORE 460 i, CALL PRINT ,, CALL S2::
430^R^TnPF ^ B ' 1 ^ , ;\" LL PR<S,:! MLL SP *<S,M(,»:: *■* u SOTO 370
435 NEXT T ' ' " R " D * ! : IF X=i THEN 44 °
44£_IF BU,T)>0 THEN BCI,T)=B«, T)-l :: &*H : : GOTO 425 ELSE SDSUB 445 :: GOTO
i IF Z=32 THEN 4G0
u u ^ -.-. rur r»o iu * :: READ X :: IF K=Z THEN B(I,T)=BCI,T)+1 ;; GOTO
455 NEXT T
4S0 RETORN
465 RESTDRE 470 :: CALL PRINT :: CALL 54 : : CALL P : : SOTO 395
470 DATA KAiJF J,-(MOr:,i i::H,iapH"EN "EHLEN, I UIEDERHOLEN [
475 IF J032 THEN X=2 ELSE K=±
480 DATA ,[ KAUF SUELTIQ [,
485 FOR T=l TO £ :: IF SES*(C*,T,1>=" ■' THEN 435
495 RESTORE 500 :; FDR Y=I TO T :; READ Z :; NEXT Y :: P<I>=F(I]+Z*X ■■ DISPI AY
AT(24,I*7-A*4+12)SIZE(3J:USING -##»-P(I) DISPLAY
500 DATA 5,3,2,1,1,1
505 IF P(I)>=LI THEN CALL DELSPRITEiALL) : : 50T0 520
510 RESTORE 515 :: CALL PRINT :: NEXT I :: SDTD 100
515 DATA ,,,
" 2 p<n LL iSJ^ 21 ' 1 ^'" 5 " ™ I=1 T ° A !! DtSPLAV *Tf2!,IO-*Mti2),iiM •»
:P(Ijj: NEXT I :: FOP r=l TO 16 :: PRINT ■- NEXT I ■■ CALL Dl
525 CALL KRUEGEftLUl,l3)ii PRINT " S P I E L E n'd E" ■- PRINT ■ M A C H
R LI N D E ";R :: CALL SI :: CALL CLEAR n END
530 SUB Dl
535 CALL CQLORft, 16,4,2,15,11,3 7 d j i a , ,
540 RESTDRE 545 : : FOR 1=1 TO 2C
00030F1 F, 30, OOOOOOOOOOCOFOFS
550 DATA 39,OO0000OOO20FFFFF,40,0,41,000101010i0101FF,4
ooooooooooofc,44,oooooooooooooo3f „.„„_,. ... ,
555 DATA 1 12,0101010101010101, 113,808060808080808, 114, 01010101, 115, B0BO8QB, 116,1
■. ■ . . '■:..: '■■' ■ - . . : i.- '■""'
560 DATA 45,7B4A4B7A42424242,46,aOBOa09C909Ca4DC
5&5 SUBEND
V,l SSSS-iVS. M T. «,»»»., «W> «.„,,:«« •»...«-:^
1 :: NE!<T I :: CALL S0UNDil0,-7, 13
580 DATA " I"S ■'," # * \p<i((B,p(-.(q,p!t(<q, r * + ' ,s , tu , w
585 SUBEND
5^CALL D COLaR(2,15,4,5,2,4,£,2,4,7,2,4,a,2,4,9,13,4,10,5,4,ll,2,15,12,2,ll,13,2
60o'rESTDRe'610 :: CMvW.'wil FDR 1 = 1 TO 6 :: READ < :: CALL CHAR«,C*) : =
NEXT 1
£05 DATA 64, 96,104, 58,46
610 DATA 33,47,59,92,98,105
615 FOR 1=0 TO 21 :: READ X,CB ii CALL CHARtX, C*> : : NEXT 1
620 DATA 34,3F7FFfFFFFFFFFFFFCF£FFFFFFFFFFFFFFFFFFFFFFFF7F3FFFFFFFFFFFFFFEFC,120
625 DATA 41,00O0030FlFlF3F3F0000C0F0F8FBFCFC3F3FlFlF0FO3O00OFCFCFBFaF0C000O0FFC3
- ■ . ■ ■ ■ ■ ■ : . '?!■:.';: i :
£30 DATA 64,3C7EC3DFC3FB423C,9B,3C7EC3DFD3::.[. ■ =-
635 DATA 33;0F0FOFOF0F0FOFOFF0F0FOF0F0FOF0FO101O1012F4F8FB7,SB,3C7Ei.3DBC3D75A3C,
46, 31" "r.3 OF D3DB423C
640 DATA 132.66. 133, 0201 02u I K010201B0408040B040B04
645 DATA 60,01030701 ffFFFEFi:fsF0ECCOGOFF7F3F1F0F070301,118
.000000181B2442FF3C42B1B1B181423C „„„„, .„-„,,„, ,.
651 DATA 11 1FFM AB012551A2C980AAD5BOC994BB-2501AB55012551.il
6.A2C1BOD5MD5FFFF8B050155AB55FFFF ■
655 DATA 121,000000FE0F3B4545001F107FB000O0FF00FB0aFE010101FF297F232223637F6160,
660 DATA 60 OOOOG001C--«1FFFrr.[-Oi:OCO::OL-.-*--= ' .■■■.' lEUFBFFFF
--: ■■:.■. ■-...■■ .-■■■: ■....-■ -...:■■■: ■■■■■-.■■■■-:■■■■■■ ■■
670 DATA 136 00794A4A7B424242009.-:-.;-:.::':-. ' ■A6B5A5A4B
675 DATA 140.00DE12129E1B14D2010205C534FC07FFE718CAEACABADFE78040AOA3ACBFEOFF
6S0 SUBEND
!loCALL P DELSRRlTE((il) : : FOR 1-14 TO 16 :: READ C* :: DISPLAY ATCI , 11)SIZEU7>:C
1 :: NEXT I :: SUBEND
: NEXT >
y,32,a):: CALL D£L5PRITE(SK*9+
CALL SDUND(10,-£,5):; READ C*
720 »T*«"h«.,*.--. a.eehnh.'tih.. a ,ee*ij,eeeeh,hh... a,**'**, a,"hh:,ii
725 data ■ "■ ■hhh,eee",Hhhhh a ,@ee@e a ,@hh:: .. *»•»- -
730 SUBEND p R ,
735 SUB Si :: RESTORE 740 :: FDR Z=l TO 45 :: READ B,A :: FOR 1-1 TD 30 STEP B .
■ TAN SQUND'-50.A. I): : NEXT I :: NEXT 7
740 DATA 2,293,2 246, 2, 293,2.246,3,261, 8,246,4,261, 4,293,4,246,4,391,2,293
'« D"™ *UL 4 261 4 22<
750 DATA 4, 220, 4, 246, 4. 261,4,220, 4, 246, 4, 261, 4, ,.^-.,4, 246, 4, 2^0, 4^46,4,^1,4,^1
,4.246,4,261,4,293,4
755 DATA $
760 SUPEND
765 SUB S2
,!3,D,13!::
770 DATA 4(
,523, 261, 4(
5 DATA
300,-1
1,400,4
,391,
7SO DATA 3
,220,900,493
7B5 DAT* 7B3
,300,440,523
790 DATA 80C
795 SUBEND
BOO SUE S3 ;
SOS SUB 54 : :
i, 2, 293,2,246,;
RESTORE 770 ::
NEXT I
3,293,293,900,
J, 523,261
), 523,261,100,
3,369,369,400
J, 329, 400, 293,
1,391,400,391
1,400,391,783,
;, 100,440,527,
',763,391,
■
293,2,246,3,261,3,246,4
: FOR 1=1 TO 28 :: READ
7B3, 391,400,391
523,261,600,391
293,400,261,261
400,391,523,261
587,293,1200,39:
CALL SOUND'
,1):: SUBE
INT<RND*6-
,400,
220,1,195
D :i CALL 5DUND(A
400, 39 1,783, 391, B
BOO, 440,783, 39 1,B
246,246,246,400,2
400,
, 523, 261 , 400, 493, 523, 26 1
783,391
■50,391,1):: NEXT I :: SUBEND
I
GOTO 825,820,815,330, B35.B40
1-5 TO 29 STEP 4
: CALL SOUND<1100,110,
BIO SUB SPRfX,M(,)):: RANDOMIZE ::
B15 RESTORE SS5 :: GOTO B45
820 RESTORE 870 : : SOTO 845
325 RESTORE 005 : ; GOTO 845
830 RESTORE 900 : : SOTO 845
B35 RESTORE 915 :: GOTO B45
B40 RESTORE 330
B45 FOR ZMtt9*l TO X*9«7 :: READ C* :: DISPLAV ATCZ,2>SIZEf7):'C* :: NEXT Z
950 V=0 ii FOR Z=B+X*9 TO 16+X*9 :: READ C*,Y,A,B :: CALL CHARtMIX, V),C») : : CALL
BPRITE(#2,HCX,y),V,A*Xt72,Bli: V=W1 ie NEXT Z
855 DATA .mm,iy! (m, Kipqxxx.xxrsxxx, Kxr s> xx, .xtiiy.xx.xxxxxxx, 606060606060606
, 2, 25, 33, 6060301BOC03, 2, 33, 33, 38381 0001C1C1C1C
860 DATA 6, 15,33, 0FOO7FFFFF007F7F, 6, 11,41, FOOOFEFEFEOOFEFE, 6, 11, 49, 7754665477, 5,
29, 62, 7545464675, 5, 29, 70
865 DATA 3A2A322A3A,5,37,£2, EEBACEBCEA, 5, 37, 70
870 DATA i///f /*,///////,///////, //u/u//, ///////, /v/v/v/, •■*//!>/, " , 3C7EDBC3C3DB7
7, 25, 49, 243C3C24, 10, 27, 49, AOAEEAEEABAE
B75 DATA 7, 13,37,EEAAAAAAAA, 7, 14,45,BOiX>BBAAAAABA903,7, 12,53,BAABBAA2BAB,7, 14,61
, EA8AC48AEA, 6, 35, 4 1 , EEAAEA3ABE
B80 DATA 6,35,49,EEA4A4C4A4,6,35,57
385 DATA >/iV/i'*,A\\\\/,A\\\\/ i
5423C, 15, 41, 49, AOAEEAEEABAE
B90 DATA 16,13,37,EEAAAAAAAA,1£,1
E.1.0132724959D3BD03, 11,25,41
J DATA B04C4E323A3BB1C, 11,25,57
DATA ■!!!!*"■!//!//!. i HIJK
A6A3, 6,6, 43, C76777963E7665C5
305 DATA 6,6,53,B1C3FFFFFF,15,12,
5, EAA2AAEASABA8A, 9,27,47
310 DATA EOB0E020E,9,29,55, "
»I5 DATA ! !' ! !#",r = ' ■?*, I KIJKL I
46A3, 6, 6, 45, C76777969E7665C5
320 DATA £,6,53,B1C3FF,4,12,49,FFFF
5,9, 27, 50,04047454744474
5 DATA 9, 27, 5B, 79BD85CDDD0S, 11,42
.'•",ECODDDF,E/////F,E/
WA\/,"AABC\/ J .A\\\
.,45, B000BBAAAAABABO3, 1
&6A55A1B1B1B, 1
3,BAABBAA2BA6,1
/HJjO/!,*!!! ! !X,E3E6EE69796£
307C03FOOFWI F,5,42,33,O13ECOOFFO00FF,5,42,E
42, 47, E05050505, 11,42,55
!7.,E3E£EE69796E
5,43, E09095353595E7, 9,2
E05050505, 1 1 , 42, 55
930 DATA
E30.5, 12,49,9496969595?
5 DATA 7, 22,42, AFA9A9A9A3A9AF, 7, 22, 50, 43696959585848,
1 , 00EEAAEA9ABE, 6, 3 1 , 43
4,6,31,S7,3C4281818181423C,2,39,3a,3C4281BlBlBI423C,
"+DDDDD, '■ , FFD6DBDBDBC37
22, 5B, 00EA6AC48AEA, 6,31
SawM&rafttattfl
Tl 99/4 A k
40-Zeichen
rss as— .-
!„•! duid, Vi.-nu-niiimE tosu- LES i.«) ur..! \H> cinctiick-ji
iStEanalen Tes[.™Jus all /_,;. w!,J. Dadurch »ir,l in, VDI'-
life SESl
40-Zeichen Textmodns
a.'-
' tf i™,™™.™*,™,.™....™
i, :ut c^snErs?""
ssl. r:;:~"--"
■"&»■ =£™
Computer Koniaki 2/86
410 DATA 006
1:1
1:1
1
; i
ill
1
1
111
10 « ER «««. Reaktionstest SS^Sf^tS^!^
110 CALL CLEAR ZeichennichlrEcmlciliEgchin-
120 INVUT "WELCHE GESCHWINDISKEIT ? ":A <kn l»t, n>uB man mil dem
130 CALL CLEAR ffierKhlwdmoMiu&i "22™ telM ?™- Am
140 FOR W TO 20 then. dMsufdcmBad^iim^™^"*™*-**^ 1 '
150 RANDOM ZE eracheint, so schndl wie mflg- ™ th] ^^ ^Jjf *
160 B=INT<RNDt42*4B> uod ^u' dracka^Anto" st,llnd " u,u " len - Uas Spiel
150 CALL KEViO,K,S) ifimmen bem-eii ."-" : ' ■■'■'
200 [F K-B THEN 300
210 NEXT L
220 NEXT I
230 CALL CLEAR
240 PRINT " "jOf-VON 20 P10EGLICHEN": : " GESCHAFFT": ; :" GESCHWINDIGKEIT l"|Al
250 CALL KEY(0,K,S)
260 IF S'O THEN 250
270 IF K-13 THEN 100
280 CALL aEAR
290 END
300 CALL SOUND1250, 550,0)
320 GOTO 220
IOAL
Analysieren Sie die gemachten Aussagen
richtig und kombinieren Sie logisch. Dann
kommen Sie der Losung sicherauf die Spur.
LOGICAL
$ ' E *
Auch diesmal bringcn wir wieder elwas fur unsere Knobelfreunde. Das neue Logical
ist da. Zu gewmnen gibt cs diesmal als 1.-20. Prcis je em Softwarepaket. Bitte geben Sie
deshalb bei Thren Losungen audi den gewiinschten Compulertyp an. EinsendeschluR ist
der 1. April 1986. Der Rechtsweg isl ausgeschlossen.
Jetzt die Aufgabe:
4 Leute treffen sich in Koln im Karneval und maehcn in ihrer Faschingslaune eine Po-
lonaise. Es sind Gunter. Heidi, Fred und Anneliese. Sie kommen alle aus verschiedcnen
Stadten: aus Hamburg. Diisseldorf, Hannover und Trier. Verkleidet sind sie als Pirat,
Indianer, Charly Chaplin und als Robin Hood. Sie sind 27, 26 und 24 Jahrc alt.
1. Hinter Robin Hood hat man sich als Indianer verkleidet.
2. Als erster lauft ein Mann.
3. Der Dtisseldorfer lauft binter Heidi.
4. 2 sind gleichaltrig.
5. DeT Pirat lauft zwischen dcm Indianer und Charly Chaplin.
6. Fred aus Hamburg bildet nicht das SchluJJIicht.
7. Heidi ist 3 Jahre alter als Fred.
8. Gunter lauft yor Anneliese, die nicht aus Hannover kommt.
9. Gunter ist so alt wie Heidi .
10. Die Frau, die aus Trier anreiste, lauft am SchluB und ist als Charly Chaplin
verkleidet.
Dazu hatten wir jetzt zwei Fragen:
1 . Wer kommt aus Diisseldorf?
2. Wer kommt aus Hannover und welches Kostum hat diese Person an?
Schreiben Sie urts auf ein er Post karte diese bciden Antworten und vergessen Sie nicht,
Ihren Computertyp anzugeben.
Viel Spall beim Knobeln!
**UNGLAUBLICH**
Die gesamte Leistungsfahigkeit Ihres
M icrodrives kann nun total ausgeschopft
werdan. Ein Mull fur M-Drives!
MIRAGE
MICRODRIVER
fli
MICROCOMPUTER LTO.
Thomas M. JOHN
5400 Koblenz 16
P
pndo uhlitiBg, _ffi g
m i ■■■■■■■■■■■■■■
- ■■■■■■■■■■■■■
1*5 SB lein--h:ci'-.eii!
_® Michael Naujoks ]
Diesen Monat neu
lii! IP
Gurangr.i Miiiwu dm a
Hardware
Sinclair
>
Software
S' 5£
: S
™3£*
Kostenfosen K
atalog anfordernj
cm'™'." ap* ""dlfi*" HoBliw:
,. ^•™-11"°d. earn H° ola ™b7rg (08221) 4S8SS ,
Computer Kontakt g/86
KLEINANZEIGEN gj
Spectrum
User Club
Wuppertal
Club-Zeitschrift
Tips, Tricks, Bauanleiturtgen
Vorstellung neuesler Programme
Erfahrungsberlchta
Mitglieder-Bdrse
Weitere Informalionen erhalten Sie (gegen
Einsendung von DM 0.50 Riickporto) von:
Rolf Knorre,
Postfach 2001 02, 5600 Wuppertal 2
HP-SOFT
* Spitzenqualltat *
* Geniale Preise *
Gratiskatalog *
Computer Kontakt 2/86 99
Jfefffl
LOGITEK
Computer Systeme
Monfflior Zenith 239.- DM Dmcka-SHINWSCPABO-tOQ
Wlr hleteo el nan ZX Spectrum Reparaturservice an.
LOGITEK £TE
!S££53KSS.«
Schneider CPC 464
U. KUNZ
Peter West Records GmbH
Schneider
PreiS C64
Wizards Lair 38.90 Wizards Lair
Hi Rise 38.90 Hyper Sports
Use It 38.90 Rambo
X-Basic (CPC 464) 12.90 Frankie goes to
Friday the 13th 42.90 Friday the 13th
.30
Wizards Lair
37J
M
Star Quake
37:
.90
YieAreKungFu
36.
.90
Frankie goes to H.
41:
.90
Gladiator
42.
Alle Praise beinhatten die gesetzliche MwSt. Liste gegen DM 1.- i
Wir suchen Program mierer, die gute Programme fur Schneider,
C 64, Spectrum und Atari geschrieben haben. Schicken Sie uns
bitte Ihre Programme mit Beschreibung auf einem Datentrager.
Handle rant rag en erwiinscht.
Beifolgendam Handler konnen Sie
PETER STAMM - Henkelshot 1-3/80- 5630 Remaeheld 11 ■ S 021 91 /663078
INDIVIDUAL SOFTWARE
k SPECTRUM * SPECTRUM * SPECTRUM * SPECTRUM * SPECTRUM
Computer KontaWt 2/86
KLEINANZEIGEN
C 64 ABACUS SOFTWARE-BOUTIQUE
MASTERGRAFIK CENTRONICS
DRUCKER GLP ,ncl.
mSSSSSS INTERFACE
"'vonaraphiMshig' uin oyy
DISK DM49
MULTIPLAN
DM195
ELITE »««a..™«™™ DISK. DM69
CASS. DM 59
HANKIE GOES TO HOLLVWODD CASS. DM 35
EXPLODING FIST CASS. DM 35
ESCHERSHEIMER LANDSTR. 84 6000 FFM 069/594019
ACHTUNG!! UNTER ALLEN I
EINSENDUNGEN WIRD EIN
PRINT SHOP C 64 VERLOST !
Computer Kontakt 2/B*
KLEINANZEIGEN
Texas I nstru ments
cow.km,»2/8b KLEINANZEIGEN
/
Computet Kontakt 2/86
KLEINANZEIGEN «
Bestellschein fiir private Kleinanzeigen
I ' Li- j-i-
::::1L
ES ,|
Vtilug Riu-fhcrlc IM
EEBS „■
■im
Computer Kontakt 2/B6
FUNDGRUBE
■■?""■■■■■■■■■■
■ J jgJ ; '-S! FUNDGRUBE
CP/M 2.2 auf alien
Atari STs
u.a..CMtf-W-Pii)BraTln
rZ80 den. Umgcbautc Shupn-kom- wfrd IllCht OHAuC
Act i vision
griindet neues
Softwarehaus
^at^S^ Neue Mailbox
rcich) U ,id Neue Szenerie- ^
D™Td« disketten fur den
ii:^!i.i in Sinclair, s P « 17, . , , „ I *BiisinBis-SaftwarB*
und den Jet ! pc^ "bSS^fS sbb!-
Neue Mailbox
Fa. LDcker/CK
In der Ei sen bach 37
6270ldstein
Computer Komakt 2/86
FUNDGRUBE i»
mjm ■MHHi
Neues von
ScoobyDoo
C1M(IW s 33
^Hl
Compy-Srop ft 10?
.iiilHCmJijeSnii-l-UcsLsn-Sprs-
*^ r "^P s^B'ta^^^l
H-PS<* S. 96
^^^i»j^SiPi8N^^B
chetl Grulikdaicn «i Scocilw
^uasoftwm S.1O0
C raB cr S!5 5 5^ Ce^riM-m
Sprache nun ?.ur Yi'fluirjriK
^r K " nMonh s! K
Der Bergische Computer
£L* «£•«
Flohmarkt
r n(nffi .-ird.
£T" + S. »
Seta, der 1. Bergische Com- OWH =11™ 8™dOT WJ*
LOckS. ft 105
^'^f^tolXn™ ^^.Tv^r^bl"!
Es geht auch
Ncraswt s is
anders
Peter West Records S.10O
dej 'i^i"r bii-.LV n Sii.d Lir.!'. ■.■i- r! -Fi-s:jvar smrten. Dan
,i^UrinwUKC^Lettt(j»i
Pause" imdHaub S. 80
ll'Uu^'m^'C^^ semTT.enumusik.liKliviiiste
t^^wgeto''™^' ™
TtamsTauswd 9. 79
.VL::.^:l^iir :illev u;i>TUil ( iim-
^■""SX^ «5^iSS»^«S
i.K-rpaphLk-.itiitdeiniimivEr-
££Z **
Critical Mass Userport-Reset
Compp - S!)op (©1)2
: J. Jahn und Peter Bee, 4330 Mulheim Ruhr - Gneiss naustrafle 29, Telefon 02
Der Atari Spezialist
Auszug aus unserar neuesten Preisliste:
HARDWARE
Atari 800 XL 248.- DM
Atari 130 XE 398.- DM
Atari 800 XL, 128KRAM T voll 130XE kompatibel 498.- DM
Nachrustsatz 800 XL/600 XL auf 1 28 KRAM 248.- DM
Farbdrucker Okidata Okimate 20
anschluBfertig fur Atari Computer 999.-DM
anschluftfertig fuir C 64-Computer 965.- DM
Farbdruckprogramm im Lieferumfang enthalten.
Okidata Microline 192, NLQ, 160Zeichen/Sek., anschluRfertig . . 1749.- DM
SeikoshaGP-1000A, FX-80 komplett anschluftfertig 1153.- DM
Ape Face, Drue ker- Interface 298.— DM
Doppel-lnterface850XL(1 Centronics/1 RS-232) 398.- DM
Atari Light-Pen 1 69.- DM
Tech Sketch Light-Pen 169.— DM
OldrunnerkartefiirXL/XE 98.-DM
OldrunnermitSOZeichen und 4 KBibomon 198.- DM
16 K Bibomon mit Hardware-Uhr und Centronics Parallelport . . . 448.- DM
DerEinbaudes 16 KBibomon muG bei unserfolgen!
SOFTWARE NEUHEITEN
2 19 - DM
219.- DM
79.- OM
T48.- OM
79 - OM
149 -DM
89.- DM
149.- OM
149- OM
Home ^acK J
uViiUjirger D
Vlf JM;
296.
169.-
129.-
B-Giapi C
TTieHa>fy Prnjecf At
in-Cb
...
sCuu
*r"«» a
39.-
Esse- D
298.-
DEMNACHST
Aero Jet, der Super-Flugsimulator von MicroProse. Gun Ship.
muiator. Jet, der neue Flugsimutator von SubLogic, Essex un
Alternate Reality von Datasoft, die drei Spitzenadventure.
Rufen Sie uns an und fordern Sie die neueste Preisliste an. Oder senden Sie uns 3.50 DM
Briefmarken fur unseren Atari Katalog, in dem Sie einen grofien Teil der Hard- und Software t
kiart tinden Telef on Q2 Q8 / 49 7 1 69
■ iJglH 1JEM Ega BEM HS8
T.S. Datensysteme-Vertriebsgesellschaft mbH
SflOSSg
, SO, Tel. 0911/288286
Live Music
Archive
Librivox
Free Audio
Metropolitan Museum
Cleveland
Museum of Art
Internet
Arcade
Console Living Room
Open Library
American
Libraries
TV News
Understanding
9/11